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'.
5 lines
111 B
Scheme
5 lines
111 B
Scheme
(let ((n+ 0))
|
|
(do ((n- 5 (1- n-))
|
|
(n+ n+ (1+ n+)))
|
|
((= n- 0))
|
|
(format #f "n- = ~a~%" n-)))
|