[bpt/guile.git] / testsuite / t-closure.scm

(define func
  (let ((x 2))
    (lambda ()
      (let ((x++ (+ 1 x)))
	(set! x x++)
	x++))))

(list (func) (func) (func))
Commit	Line	Data
b6368dbb LC	1	(define func
	2	(let ((x 2))
	3	(lambda ()
	4	(let ((x++ (+ 1 x)))
	5	(set! x x++)
	6	x++))))
	7
	8	(list (func) (func) (func))