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

* boot-9.scm (process-define-module): Reverted the change of

Browse source 
1998-11-23 which caused loading of object code if :use-module was
applied to the module itself.
This commit is contained in:
Mikael Djurfeldt 1998-12-14 07:53:32 +00:00
parent 9705d5c2a1
commit 45a02a29a6
2 changed files with 22 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
1998-12-14 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm (process-define-module): Reverted the change of
1998-11-23 which caused loading of object code if :use-module was
applied to the module itself.
1998-12-11 Mikael Djurfeldt <mdj@barbara.nada.kth.se> 1998-12-11 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* Makefile.am: Removed setf.scm. * Makefile.am: Removed setf.scm.

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

@ -1966,12 +1966,6 @@
(error "unrecognized defmodule argument" kws)) (error "unrecognized defmodule argument" kws))
(let* ((used-name (cadr kws)) (let* ((used-name (cadr kws))
(used-module (resolve-module used-name))) (used-module (resolve-module used-name)))
(if (eq? used-module module)
(begin
(or (try-module-linked used-name)
(try-module-dynamic-link used-name))
(loop (cddr kws) reversed-interfaces))
(begin
(if (not (module-ref used-module (if (not (module-ref used-module
'%module-public-interface '%module-public-interface
#f)) #f))
@ -1988,7 +1982,7 @@
(module-ref interface (car (last-pair used-name)) (module-ref interface (car (last-pair used-name))
#f))) #f)))
(loop (cddr kws) (loop (cddr kws)
(cons interface reversed-interfaces))))))) (cons interface reversed-interfaces)))))
((autoload) ((autoload)
(if (not (and (pair? (cdr kws)) (pair? (cddr kws)))) (if (not (and (pair? (cdr kws)) (pair? (cddr kws))))
(error "unrecognized defmodule argument" kws)) (error "unrecognized defmodule argument" kws))