cleanup

2019-12-04 11:55:40 +01:00
parent 28ab850bee
commit 667989e373
39 changed files with 2010 additions and 1273 deletions
@@ -49,7 +49,7 @@
 #define ignore_logging       fluid_let(Globals::log_level, Log_Level::None)

 #define fetch1(var)                                                             \
-    Lisp_Object* var##_symbol = Memory::get_or_create_lisp_object_symbol(#var); \
+    Lisp_Object* var##_symbol = Memory::get_symbol(#var);                       \
    Lisp_Object* var = lookup_symbol(var##_symbol, get_current_environment());  \
    if (Globals::error) printf("in %s:%d\n", __FILE__, __LINE__)

@@ -152,9 +152,3 @@
            for (Lisp_Object* head = l, *it;                                                       \
                 Memory::get_type(head) == Lisp_Object_Type::Pair && (it = head->value.pair.first); \
                 head = head->value.pair.rest, ++it_index)
-
-
-
-
-
-