1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 01:02:26 +02:00
guile/test-suite/vm/t-mutual-toplevel-defines.scm
Ludovic Courtès aa592f96b0 Rename the testsuite' directory to test-suite/vm'.
* 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'.
2010-05-26 23:41:24 +02:00

8 lines
116 B
Scheme

(define (even? x)
(or (zero? x)
(not (odd? (1- x)))))
(define (odd? x)
(not (even? (1- x))))
(even? 20)