Merge commit '40a723a92236fe4e58feb89057b4182b1fc76810'

[bpt/guile.git] / test-suite / vm / t-closure.scm

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

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