correctly pass closures in an argument list

1 files changed, 4 insertions, 3 deletions

diff --git a/test.scm b/test.scm
index 197b5d0..978746d 100644
--- a/test.scm
+++ b/test.scm
@@ -66,11 +66,11 @@
 
 (test-group "lambda syntax"
   (test "identity"
-        '(pass (lambda ((__γ1 __κ2) (x)) (pass (x) __γ1 __κ2)) () __toplevel)
+        '(pass ((lambda ((__γ1 __κ2) (x)) (pass (x) __γ1 __κ2))) () __toplevel)
         (cps->sexpr (core->cps '(lambda (x) x))))
   (test "let bind"
-        '(pass (lambda ((__γ3 __κ4) (x))
-               (pass (x) __γ3 __κ4)) ()
+        '(pass ((lambda ((__γ3 __κ4) (x))
+                  (pass (x) __γ3 __κ4))) ()
                (kappa (__v2) __γ1
                       (apply __v2 (y) __γ1 __toplevel)))
         (cps->sexpr (core->cps '((lambda (x) x) y)))))
@@ -134,3 +134,4 @@
   (test "multiple quotes on a constant"
         '(''#f)
         (e1 '''#f)))
+