| commit | e9fec8be6c323b9705e807da460c555f202f641e | [log] [tgz] |
|---|---|---|
| author | swissChili <swisschili@fastmail.com> | Tue Jun 22 13:59:33 2021 -0700 |
| committer | swissChili <swisschili@fastmail.com> | Tue Jun 22 13:59:33 2021 -0700 |
| tree | 0c286e90910c8545593275bb04d559fab574d917 | |
| parent | e5adca568070329f36d88fde8ca7b5e8999e15f1 [diff] [blame] |
Finish stack walking, mark+sweep for GC
diff --git a/src/lisp/lisp.c b/src/lisp/lisp.c index 50da78a..a015d4e 100644 --- a/src/lisp/lisp.c +++ b/src/lisp/lisp.c
@@ -33,13 +33,14 @@ c->car = car; c->cdr = cdr; - item->alloc.type_tag = T_CONS; + item->alloc.type_tag = CONS_TAG; if (last_a) { item->alloc.prev = last_a; last_a->next = item; item->alloc.next = NULL; + last_a = item; } else {