~ chicken-core (chicken-5) /tests/import-library-test1.scm

1(module foo (foo xcase)
2  (import (rename scheme (case xcase)))
3  (define-syntax foo 
4    (syntax-rules ()
5      ((_) (bar))))
6  (define-syntax bar
7    (syntax-rules ()
8      ((_) (list 123)))))
9