mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 03:00:19 +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>
* Makefile.am: Removed setf.scm.

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

@ -1966,12 +1966,6 @@
(error "unrecognized defmodule argument" kws))
(let* ((used-name (cadr kws))
(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
'%module-public-interface
#f))
@ -1988,7 +1982,7 @@
(module-ref interface (car (last-pair used-name))
#f)))
(loop (cddr kws)
(cons interface reversed-interfaces)))))))
(cons interface reversed-interfaces)))))
((autoload)
(if (not (and (pair? (cdr kws)) (pair? (cddr kws))))
(error "unrecognized defmodule argument" kws))