~ chicken-core (chicken-5) /tests/reexport-m7.scm

 1(module reexport-m7
 2    (reexported-reverse (reexported-local-reverse my-reverse))
 3
 4  (import scheme (chicken syntax))
 5
 6  (define (my-reverse lis)
 7    (reverse lis))
 8
 9  (define-syntax reexported-local-reverse
10    (syntax-rules ()
11      ((_ lis)
12       (my-reverse lis))))
13
14  (define-syntax reexported-reverse
15    (syntax-rules ()
16      ((_ lis)
17       (reverse lis)))))