~ chicken-core (chicken-5) 05358920ab6141273e2e67e2bd60ea6b96092f69

commit 05358920ab6141273e2e67e2bd60ea6b96092f69
Author:     felix <felix@y.(none)>
AuthorDate: Sun Apr 25 04:51:11 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Sun Apr 25 04:51:11 2010 +0200

    added test for expander rename/reexport bug

diff --git a/tests/renamed-reexport-bug.scm b/tests/renamed-reexport-bug.scm
new file mode 100644
index 00000000..45de60ae
--- /dev/null
+++ b/tests/renamed-reexport-bug.scm
@@ -0,0 +1,22 @@
+;;;; this-works.scm
+
+
+;; when using import-libraries, then this fails:
+;; 
+;; (import foo2)
+;; (fbar)           ; <- expansion refers to `bar'
+
+
+(module foo (bar baz)
+(import scheme)
+
+(define-syntax bar
+  (syntax-rules () ((_) (baz))))
+
+(define-syntax baz
+  (syntax-rules () ((_) (display "baz.\n")))))
+
+(module foo2 ()
+(import scheme)
+(reexport (rename foo (bar fbar) (baz fbaz))))
+