aboutsummaryrefslogtreecommitdiffstats
path: root/src/bootstrap/primitives.c
diff options
context:
space:
mode:
authorBad Diode <bd@badd10de.dev>2021-10-11 09:40:39 +0200
committerBad Diode <bd@badd10de.dev>2021-10-11 09:40:39 +0200
commitc497aca556295479b1ed5632e125ff1d0658d8d8 (patch)
tree114aadd19644b32e2046241c4f3955b00de5422f /src/bootstrap/primitives.c
parent581116c655df4eb753098e013dd5854df95f7865 (diff)
downloadbdl-c497aca556295479b1ed5632e125ff1d0658d8d8.tar.gz
bdl-c497aca556295479b1ed5632e125ff1d0658d8d8.zip
Add a base struct to start environment refactoring
Diffstat (limited to 'src/bootstrap/primitives.c')
-rw-r--r--src/bootstrap/primitives.c5
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