diff options
Diffstat (limited to 'testsuite/t-closure.scm')
-rw-r--r-- | testsuite/t-closure.scm | 13 |
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)) |