mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
aa592f96b0
* testsuite: Move to... * test-suite/vm: ... here. * Makefile.am (SUBDIRS): Remove `testsuite'. * configure.ac: Output `test-suite/vm/Makefile' instead of `testsuite/Makefile'. * test-suite/Makefile.am (SUBDIRS): Add `vm'.
10 lines
153 B
Scheme
10 lines
153 B
Scheme
|
|
(define (uid)
|
|
(let* ((x 2)
|
|
(do-uid (lambda ()
|
|
(let ((x++ (+ 1 x)))
|
|
(set! x x++)
|
|
x++))))
|
|
(do-uid)))
|
|
|
|
(list (uid) (uid) (uid))
|