mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

* boot-9.scm (process-define-module): Bug fixed.

Browse source
This commit is contained in:
Keisuke Nishida 2001-07-31 14:08:04 +00:00
parent 3c9a524f01
commit 88c4ba2aef
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -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> 2001-07-24 Marius Vollmer <mvo@zagadka.ping.de>
* syncase.scm (psyncomp): Removed, it is now in * syncase.scm (psyncomp): Removed, it is now in

10
ice-9/boot-9.scm
View file

@ -1747,14 +1747,14 @@
(unrecognized kws)) (unrecognized kws))
(let* ((interface-args (cadr kws)) (let* ((interface-args (cadr kws))
(interface (apply resolve-interface interface-args))) (interface (apply resolve-interface interface-args)))
(and (eq? (car kws) 'use-syntax) (and (eq? (car kws) #:use-syntax)
(or (symbol? (car spec)) (or (symbol? (caar interface-args))
(error "invalid module name for use-syntax" (error "invalid module name for use-syntax"
spec)) (car interface-args)))
(set-module-transformer! (set-module-transformer!
module module
(module-ref interface (car (module-ref interface
(last-pair (car interface-args))) (car (last-pair (car interface-args)))
#f))) #f)))
(loop (cddr kws) (loop (cddr kws)
(cons interface reversed-interfaces) (cons interface reversed-interfaces)