Add test case

diff --git a/tests.scm b/tests.scm
index c4b81f15158e4a7f63152edab863dc9c5e10988b..cd0d98be49e20a11140b0e533281793ed4e9643c 100644 (file)
--- 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")