From: Luke Lau <luke_lau@icloud.com>
Date: Sun, 4 Aug 2019 18:04:36 +0000 (+0100)
Subject: Merge branch 'master' of lukelau.me:/srv/git/scheme
X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=commitdiff_plain;h=5ea42a37be529974bff32b719bd91e004d1dfcd8;hp=8894a56619450d998be2cbbfd45c70f16d642936

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

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