diff options
Diffstat (limited to 'testsuite/t-closure2.scm')
| -rw-r--r-- | testsuite/t-closure2.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/t-closure2.scm b/testsuite/t-closure2.scm new file mode 100644 index 000000000..fd1df34fd --- /dev/null +++ b/testsuite/t-closure2.scm @@ -0,0 +1,10 @@ + +(define (uid) + (let* ((x 2) + (do-uid (lambda () + (let ((x++ (+ 1 x))) + (set! x x++) + x++)))) + (do-uid))) + +(list (uid) (uid) (uid)) |