Merge branch 'master' of lukelau.me:/srv/git/scheme

diff --git a/tests.scm b/tests.scm
index 4e50dc61908cee17c4d1c1ada96c57282abf5830..398793059e48cdd4b4523cf09fa5fc4b43359b3f 100644 (file)
--- 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")