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

(let ((x 2))
  (lambda ()
    (let ((x++ (+ 1 x)))
      (set! x x++)
      x++)))
Commit	Line	Data
0b5f0e49 LC	1	(let ((x 2))
	2	(lambda ()
	3	(let ((x++ (+ 1 x)))
	4	(set! x x++)
	5	x++)))