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 ...) 19