| 12345678910111213141516171819202122 |
- (define-library (evn)
- (import (scheme base) (odd))
- (cond-expand ((library (java lang no-such))
- (define d e f)))
- (cond-expand ((library (scheme base))
- (begin
- (define (is-even? (x :: <int>)) :: <boolean>
- (if (= x 0) #t (is-odd? (- x 1)))))
- (export is-even?))))
- (define-library (odd)
- (import (scheme base) (evn))
- ;; Not allowed in pedantic r7rs
- (define (is-odd? (x :: <int>)) :: <boolean>
- (if (= x 0) #f (is-even? (- x 1))))
- (export is-odd?))
- (import (odd))
- (format #t "odd(21): ~w~%" (is-odd? 21))
- ;; Output: odd(21): #t
|
