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

1;;; export syntax, one definition refering to another
2;   used for testing reexport wth renaming (reexport-test-2.scm)
3(module reexport-m5 *
4(import scheme)
5(define-syntax s1
6  (syntax-rules () ((_) (s2))))
7(define-syntax s2
8  (syntax-rules () ((_) (display 1)))))