1 2 3 4 5 6 7 8
(cond-expand (chicken-5 (import r7rs)) (else)) (import (scheme base) (cuprate) (srfi 225) (cuprate rewriters)) (test-set! 'verbose? #t) (include "impl.scm")