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