X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=tests.scm;h=398793059e48cdd4b4523cf09fa5fc4b43359b3f;hp=4e50dc61908cee17c4d1c1ada96c57282abf5830;hb=5ea42a37be529974bff32b719bd91e004d1dfcd8;hpb=8894a56619450d998be2cbbfd45c70f16d642936

diff --git a/tests.scm b/tests.scm
index 4e50dc6..3987930 100644
--- a/tests.scm
+++ b/tests.scm
@@ -168,3 +168,15 @@
 			   (go p 1)))])
 	      (pow 4 2))
 	   16)
+
+(test-prog-stdout '(let ([f (lambda (n)
+			      (if (= n 0)
+				  0
+				  (let ()
+				    (print "a")
+				    (g (- n 1)))))]
+			 [g (lambda (m)
+			      (let ()
+				(print "b")
+				 (f (- m 1))))])
+			 (f 10)) "ababababab")