[bpt/guile.git] / test-suite / vm / t-mutual-toplevel-defines.scm

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

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

(even? 20)
Commit	Line	Data
9cc649b8 AW	1	(define (even? x)
	2	(or (zero? x)
	3	(not (odd? (1- x)))))
	4
	5	(define (odd? x)
	6	(not (even? (1- x))))
	7
	8	(even? 20)