t-closure2.scm « testsuite - software/guile - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/testsuite/t-closure2.scm

blob: fd1df34fd7c436d0941f47abaf72fcdf3036110a (about) (plain)

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

(list (uid) (uid) (uid))