Codegen if statements

[scheme.git] / tests.scm

diff --git a/tests.scm b/tests.scm
index 964b6443fec10001cb73798836c33a2b6a919e9c..56762c72124ee6c0f9bdbd3dd47754a5b73a8dd3 100644 (file)
--- a/tests.scm
+++ b/tests.scm
@@ -28,9 +28,9 @@
 
 (test-prog '(+ 1 2) "3")
 (test-prog '((lambda (x) ((lambda (y) (+ x y)) 42)) 100) "142")
-; todo: support recursive let
 (test-prog '(let ((x (+ 1 32))
                  (y x))
              ((lambda (z) (+ 1 z)) (* y x)))
           "1090")
+(test-prog '(if ((lambda (x) (= x 2)) 1) 0 (- 32 1)) "31")