diff options
Diffstat (limited to 'src/bootstrap/primitives.c')
-rw-r--r-- | src/bootstrap/primitives.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/bootstrap/primitives.c b/src/bootstrap/primitives.c index 806656e..3c03b99 100644 --- a/src/bootstrap/primitives.c +++ b/src/bootstrap/primitives.c | |||
@@ -62,7 +62,7 @@ eval(Object *root) { | |||
62 | return root; | 62 | return root; |
63 | } break; | 63 | } break; |
64 | case OBJ_TYPE_SYMBOL: { | 64 | case OBJ_TYPE_SYMBOL: { |
65 | Object *value = find_environment_symbol(root); | 65 | Object *value = env_find_symbol(root); |
66 | if (value == NULL) { | 66 | if (value == NULL) { |
67 | printf("error: symbol not found: `"); | 67 | printf("error: symbol not found: `"); |
68 | display(root); | 68 | display(root); |
@@ -73,7 +73,7 @@ eval(Object *root) { | |||
73 | } break; | 73 | } break; |
74 | case OBJ_TYPE_PAIR: { | 74 | case OBJ_TYPE_PAIR: { |
75 | if (root->car->type == OBJ_TYPE_SYMBOL) { | 75 | if (root->car->type == OBJ_TYPE_SYMBOL) { |
76 | Object *value = find_environment_symbol(root->car); | 76 | Object *value = env_find_symbol(root->car); |
77 | if (value == NULL) { | 77 | if (value == NULL) { |
78 | printf("error: symbol not found: `"); | 78 | printf("error: symbol not found: `"); |
79 | display(root->car); | 79 | display(root->car); |
@@ -699,6 +699,7 @@ proc_equal(Object *args) { | |||
699 | 699 | ||
700 | // TODO: fixnum left/right shift, mask, invert | 700 | // TODO: fixnum left/right shift, mask, invert |
701 | // TODO: implement and test missing procedures | 701 | // TODO: implement and test missing procedures |
702 | // TODO: add primitives for type transforms: string->symbol, symbol->string, etc | ||
702 | // TODO: properly implement nested environments | 703 | // TODO: properly implement nested environments |
703 | // TODO: implement support for quotes and semi-quotes | 704 | // TODO: implement support for quotes and semi-quotes |
704 | // TODO: LAMBDA | 705 | // TODO: LAMBDA |