diff options
Diffstat (limited to 'test-suite/vm/t-closure.scm')
-rw-r--r-- | test-suite/vm/t-closure.scm | 8 |
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)) |