~ chicken-core (master) /tests/reexport-tests-2.scm

 1;;; export of syntax referring to reexported syntax binding
 2(import reexport-m4)
 3(print (baz))
 4
 5;;; reexport of renamed syntax
 6(import reexport-m6)
 7(f:s1)                ; expands to s2, which is reexported and refers to "s2", which is also visible in this context as "f:s2"
 8(f:s2)
 9
10;; reexport of syntax using shadowed identifiers in new module (#1757)
11(import reexport-m8)
12(assert (equal? '(d c b a) (reexported-reverse '(a b c d))))
13(assert (equal? '(d c b a) (reexported-local-reverse '(a b c d))))
14
15;; Regression test for #1771 where reexports would get ignored by
16;; "except" specifier.
17(import (except reexport-m10 define))
18(define something 1) ;; If reexport messed up, this would be syntax from reexport-m9 expanding to (error ...)