summaryrefslogtreecommitdiff
path: root/testsuite/t-closure.scm
blob: 3d791979ee450d78c691fc5d52c99da852503133 (about) (plain)
1
2
3
4
5
6
7
8
(define func
  (let ((x 2))
    (lambda ()
      (let ((x++ (+ 1 x)))
	(set! x x++)
	x++))))

(list (func) (func) (func))