~ chicken-core (chicken-5) 5b69b574504eb4484809c86ee215806953207bda


commit 5b69b574504eb4484809c86ee215806953207bda
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat May 12 17:04:34 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat May 12 17:04:34 2012 +0200

    strip import specs as well

diff --git a/modules.scm b/modules.scm
index fd17c627..02a0a2c9 100644
--- a/modules.scm
+++ b/modules.scm
@@ -666,7 +666,8 @@
 	     (append (module-import-forms cm) (cdr x)))))
       (for-each
        (lambda (spec)
-	 (let* ((vs (import-spec spec))
+	 (let* ((spec (##sys#strip-syntax spec))
+		(vs (import-spec spec))
 		(vsv (car vs))
 		(vss (cdr vs))
 		(prims '()))
Trap