summaryrefslogtreecommitdiff
path: root/testsuite/t-closure.scm
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/t-closure.scm')
-rw-r--r--testsuite/t-closure.scm13
1 files changed, 8 insertions, 5 deletions
diff --git a/testsuite/t-closure.scm b/testsuite/t-closure.scm
index 65d14dd4b..3d791979e 100644
--- a/testsuite/t-closure.scm
+++ b/testsuite/t-closure.scm
@@ -1,5 +1,8 @@
-(let ((x 2))
- (lambda ()
- (let ((x++ (+ 1 x)))
- (set! x x++)
- x++)))
+(define func
+ (let ((x 2))
+ (lambda ()
+ (let ((x++ (+ 1 x)))
+ (set! x x++)
+ x++))))
+
+(list (func) (func) (func))