summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ice-9/ChangeLog4
-rw-r--r--ice-9/boot-9.scm10
2 files changed, 9 insertions, 5 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 449f5327f..e37b870bf 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+2001-07-31 Keisuke Nishida <knishida@nurs.or.jp>
+
+ * boot-9.scm (process-define-module): Bug fixed.
+
2001-07-24 Marius Vollmer <mvo@zagadka.ping.de>
* syncase.scm (psyncomp): Removed, it is now in
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index d1ac9a7f1..67e20c523 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -1747,14 +1747,14 @@
(unrecognized kws))
(let* ((interface-args (cadr kws))
(interface (apply resolve-interface interface-args)))
- (and (eq? (car kws) 'use-syntax)
- (or (symbol? (car spec))
+ (and (eq? (car kws) #:use-syntax)
+ (or (symbol? (caar interface-args))
(error "invalid module name for use-syntax"
- spec))
+ (car interface-args)))
(set-module-transformer!
module
- (module-ref interface (car
- (last-pair (car interface-args)))
+ (module-ref interface
+ (car (last-pair (car interface-args)))
#f)))
(loop (cddr kws)
(cons interface reversed-interfaces)