X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=tests.scm;h=56762c72124ee6c0f9bdbd3dd47754a5b73a8dd3;hp=964b6443fec10001cb73798836c33a2b6a919e9c;hb=25a4c23da2d76f3bb951d01b1c3175be80441a0a;hpb=21a9f0aaa56d6dd767cefb30c606f4c62eecff48

diff --git a/tests.scm b/tests.scm
index 964b644..56762c7 100644
--- 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")