mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +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'.
16 lines
447 B
Scheme
16 lines
447 B
Scheme
(let ((set-counter2 #f))
|
|
(define (get-counter2)
|
|
(call/cc
|
|
(lambda (k)
|
|
(set! set-counter2 k)
|
|
1)))
|
|
(define (loop counter1)
|
|
(let ((counter2 (get-counter2)))
|
|
(set! counter1 (1+ counter1))
|
|
(cond ((not (= counter1 counter2))
|
|
(error "bad call/cc behaviour" counter1 counter2))
|
|
((> counter1 10)
|
|
#t)
|
|
(else
|
|
(set-counter2 (1+ counter2))))))
|
|
(loop 0))
|