Add VM test for call/cc in non-tail position

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