~ chicken-core (master) /tests/r7rs-library-tests.scm

 1;; by Anton Idukov (included code was expanded too early)
 2
 3(define-library (mod)
 4  (export fx mx)
 5  (import (scheme base))
 6
 7  (include "r7rs-library-tests-code.scm")
 8
 9  )
10
11;; reported by Peter McGoron, hack to handle arbitrary indirect exports was
12;; simply incomplete
13
14(define-library with-indirect-export
15  (import (scheme base))
16  (export bar)
17  (begin
18    (define baz 99) 
19    (define-syntax bar
20      (syntax-rules ()
21        ((_) baz)))))
22
23(import with-indirect-export)
24(assert (= 99 (bar)))