Fix gc with exceptions

2026-09-03 21:04:46 -07:00
parent 2533b0db7d
commit 3b2ecf2b16
10 changed files with 139 additions and 275 deletions
@@ -136,7 +136,7 @@ static ALWAYS_INLINE bool OBJECT_STATIC_P(LispVal *val) {
 static inline void MARK_OBJECT_ADDED(LispVal *val, LispVal *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);
+        gc_move_to_set(val, GC_GRAY);
    }
 }