Work on GC

2026-01-24 22:37:14 -08:00
parent f67ed56d52
commit 05bcb77f24
5 changed files with 186 additions and 259 deletions
@@ -134,7 +134,7 @@ static ALWAYS_INLINE bool OBJECT_STATIC_P(LispVal *val) {
 }

 static inline void MARK_OBJECT_ADDED(LispVal *val, LispVal *into) {
-    if ((!OBJECT_GC_SET_P(into, GC_WHITE) || OBJECT_STATIC_P(into))
+    if (OBJECTP(val) && OBJECTP(into) && OBJECT_GC_SET_P(into, GC_BLACK)
        && OBJECT_GC_SET_P(val, GC_WHITE)) {
        gc_move_to_set(val, GC_GREY);
    }