fix evaluation of bound variable continuationsHEADmaster

1 files changed, 8 insertions, 0 deletions

diff --git a/test.scm b/test.scm
index 978746d..1601329 100644
--- a/test.scm
+++ b/test.scm
@@ -135,3 +135,11 @@
         '(''#f)
         (e1 '''#f)))
 
+(test-group "procedures"
+  (test-assert "closure"
+               (cps-closure?
+                (car (e1 '(lambda (x) x)))))
+  (test "apply closure"
+        '(5)
+        (e1 '((lambda (x) x) 5))))
+