t-mutual-toplevel-defines.scm « vm « test-suite - software/guile - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/test-suite/vm/t-mutual-toplevel-defines.scm

blob: 795c744237324f535b07f33c5c79e47950019f62 (about) (plain)

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

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

(even? 20)