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


(define (uid)
  (let* ((x 2)
	 (do-uid (lambda ()
		   (let ((x++ (+ 1 x)))
		     (set! x x++)
		     x++))))
    (do-uid)))

(list (uid) (uid) (uid))
Commit	Line	Data
0b5f0e49 LC	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)))
b6368dbb LC	9
b6368dbb LC	10	(list (uid) (uid) (uid))