From c497aca556295479b1ed5632e125ff1d0658d8d8 Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Mon, 11 Oct 2021 09:40:39 +0200 Subject: Add a base struct to start environment refactoring --- src/bootstrap/primitives.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/bootstrap/primitives.c') 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) { return root; } break; case OBJ_TYPE_SYMBOL: { - Object *value = find_environment_symbol(root); + Object *value = env_find_symbol(root); if (value == NULL) { printf("error: symbol not found: `"); display(root); @@ -73,7 +73,7 @@ eval(Object *root) { } break; case OBJ_TYPE_PAIR: { if (root->car->type == OBJ_TYPE_SYMBOL) { - Object *value = find_environment_symbol(root->car); + Object *value = env_find_symbol(root->car); if (value == NULL) { printf("error: symbol not found: `"); display(root->car); @@ -699,6 +699,7 @@ proc_equal(Object *args) { // TODO: fixnum left/right shift, mask, invert // TODO: implement and test missing procedures +// TODO: add primitives for type transforms: string->symbol, symbol->string, etc // TODO: properly implement nested environments // TODO: implement support for quotes and semi-quotes // TODO: LAMBDA -- cgit v1.2.1