Merge commit 'feccd2d3100fd2964d4c2df58ab3da7ce4949a66' into vm-check

[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))