test-suite/vm/t-closure2.scm

   1
   2 (define (uid)
   3   (let* ((x 2)
   4          (do-uid (lambda ()
   5                    (let ((x++ (+ 1 x)))
   6                      (set! x x++)
   7                      x++))))
   8     (do-uid)))
   9
  10 (list (uid) (uid) (uid))