summaryrefslogtreecommitdiff
path: root/test-suite/vm/t-closure.scm
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/vm/t-closure.scm')
-rw-r--r--test-suite/vm/t-closure.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/vm/t-closure.scm b/test-suite/vm/t-closure.scm
new file mode 100644
index 000000000..3d791979e
--- /dev/null
+++ b/test-suite/vm/t-closure.scm
@@ -0,0 +1,8 @@
+(define func
+ (let ((x 2))
+ (lambda ()
+ (let ((x++ (+ 1 x)))
+ (set! x x++)
+ x++))))
+
+(list (func) (func) (func))