diff options
Diffstat (limited to 'testsuite/t-mutual-toplevel-defines.scm')
| -rw-r--r-- | testsuite/t-mutual-toplevel-defines.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/t-mutual-toplevel-defines.scm b/testsuite/t-mutual-toplevel-defines.scm new file mode 100644 index 000000000..795c74423 --- /dev/null +++ b/testsuite/t-mutual-toplevel-defines.scm @@ -0,0 +1,8 @@ +(define (even? x) + (or (zero? x) + (not (odd? (1- x))))) + +(define (odd? x) + (not (even? (1- x)))) + +(even? 20) |