X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=tests.scm;h=cd0d98be49e20a11140b0e533281793ed4e9643c;hp=c4b81f15158e4a7f63152edab863dc9c5e10988b;hb=469d66c04e8458d7e4e8441ffe649e4ced85575d;hpb=f4ac36dfdebc05a60aa88c5d345d8baac2393147

diff --git a/tests.scm b/tests.scm
index c4b81f1..cd0d98b 100644
--- a/tests.scm
+++ b/tests.scm
@@ -121,3 +121,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")