~ chicken-core (chicken-5) d4321905a3afc752e00fc594db3b1d06790a331c

commit d4321905a3afc752e00fc594db3b1d06790a331c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat May 12 16:04:02 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat May 12 16:04:02 2012 +0200

    also strip module names

diff --git a/compiler.scm b/compiler.scm
index c0f9e285..408852ea 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -810,7 +810,7 @@
 			   (walk `(##core#begin ,@(cddr x)) e se dest ldest h ln))))
 
 		       ((##core#module)
-			(let* ((name (cadr x))
+			(let* ((name (##sys#strip-syntax (cadr x)))
 			       (exports 
 				(or (eq? #t (caddr x))
 				    (map (lambda (exp)