commit b8fd47158e8f6f599c8a6fb292277da1e4c3e55b
author swissChili <swisschili@fastmail.com> Wed Jun 23 15:32:04 2021 -0700
committer swissChili <swisschili@fastmail.com> Wed Jun 23 15:32:04 2021 -0700
tree d99a565f70e4b5502b522df920a416475b9b9716
parent e9fec8be6c323b9705e807da460c555f202f641e

Add allocation pools, release memory in GC

src/lisp/test.lisp

diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index f51ef99..9cfb8b7 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -9,7 +9,11 @@
   (let1 (a (add-two 3))
     (print "a is")
     (print a))
+
+  ; These allocations should be freed
+  (cons 12 (cons 34 (cons 45 nil)))
   
+  ; But these should not
   (let1 (unused-but-bound (cons 5 6))
     (let1 (val (cons 1 (cons 2 (cons 3 nil))))
       (calls-gc val))))