commit e9fec8be6c323b9705e807da460c555f202f641e
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

Finish stack walking, mark+sweep for GC

src/lisp/test.lisp

diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index a8ad05e..f51ef99 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -1,12 +1,15 @@
 (defun add-two (a)
   (+ a 2))
 
-(defun main-old ()
-  (if t
-    (print (add-two (* 4 3)))
-    (print (- 3 6))))
+(defun calls-gc (whatever)
+  (print whatever)
+  (gc))
 
 (defun main ()
-  (let1 (a 3)
+  (let1 (a (add-two 3))
     (print "a is")
-    (print a)))
+    (print a))
+  
+  (let1 (unused-but-bound (cons 5 6))
+    (let1 (val (cons 1 (cons 2 (cons 3 nil))))
+      (calls-gc val))))