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

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")