summaryrefslogtreecommitdiff
path: root/testsuite/t-mutual-toplevel-defines.scm
blob: 795c744237324f535b07f33c5c79e47950019f62 (about) (plain)
1
2
3
4
5
6
7
8
(define (even? x)
  (or (zero? x)
      (not (odd? (1- x)))))

(define (odd? x)
  (not (even? (1- x))))

(even? 20)