t-mutual-toplevel-defines.scm\testsuite - delta/guile.git - git.savannah.gnu.org: git/guile.git

index : delta/guile.git

git.savannah.gnu.org: git/guile.git

summary refs log tree commit diff

path: root/testsuite/t-mutual-toplevel-defines.scm

blob: 795c744237324f535b07f33c5c79e47950019f62 (plain)

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

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

(even? 20)