From 469d66c04e8458d7e4e8441ffe649e4ced85575d Mon Sep 17 00:00:00 2001 From: Luke Lau Date: Sun, 4 Aug 2019 19:04:27 +0100 Subject: [PATCH] Add test case --- tests.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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") -- 2.30.2