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

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