~ 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