Fix gc bug and add condition classes

2026-02-28 13:22:34 -08:00
parent 45f6d7a53d
commit d21a5726e0
8 changed files with 96 additions and 5 deletions
@@ -55,7 +55,7 @@ void push_stack_frame(LispVal *name, LispVal *fobj, LispVal *args) {

 static void reset_local_refs(struct LocalReferences *refs) {
    size_t last_block_size = refs->num_refs % LOCAL_REFERENCES_BLOCK_LENGTH;
-    size_t num_full_blocks = refs->num_blocks / LOCAL_REFERENCES_BLOCK_LENGTH;
+    size_t num_full_blocks = refs->num_refs / LOCAL_REFERENCES_BLOCK_LENGTH;
    for (size_t i = 0; i < num_full_blocks; ++i) {
        for (size_t j = 0; j < LOCAL_REFERENCES_BLOCK_LENGTH; ++j) {
            assert(OBJECTP(refs->blocks[i]->refs[j]));