Work on functions

2026-01-29 00:00:05 -08:00
parent 22ffac9321
commit 5029405a70
12 changed files with 292 additions and 123 deletions
@@ -165,7 +165,8 @@ static inline void make_grey_if_while(LispVal *val) {
 }

 static void mark_object(LispVal *val) {
-    if (!OBJECTP(val) || OBJECT_GC_SET_P(val, GC_BLACK)) {
+    // check for null for newly constructed objects
+    if (!val || !OBJECTP(val) || OBJECT_GC_SET_P(val, GC_BLACK)) {
        return;
    }
    switch (((LispObject *) val)->type) {