trying not to leak memory

2019-10-30 00:47:52 +01:00
parent 814cceaf3d
commit a790a38655
22 changed files with 204 additions and 78 deletions
@@ -128,3 +128,24 @@
 #define in_caller_env fluid_let(                                \
        Globals::Current_Execution::envi_stack.next_index,      \
        Globals::Current_Execution::envi_stack.next_index-1)
+
+
+/*
+ *  iterate over lisp vectors
+ */
+#define for_lisp_vector(v)                              \
+    if (!v);               else                         \
+        if (int it_index = 0); else                     \
+            for (auto it = v->value.vector.data;        \
+                 it_index < v->value.vector.length;     \
+                 it=v->value.vector.data+(++it_index))
+
+/*
+ *  iterate over lisp lists
+ */
+#define for_lisp_list(l)                                                                           \
+    if (!l);               else                                                                    \
+        if (int it_index = 0); else                                                                \
+            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)