mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

Fix

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-11-23 03:05:57 +00:00
parent a56eeb4674
commit c04e89c78a
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2070,15 +2070,16 @@
(register-modules #f) (register-modules #f)
(or-map (lambda (modinfo) (or-map (lambda (modinfo)
(if (equal? (car modinfo) modname) (if (equal? (car modinfo) modname)
(set! registered-modules (delq! modinfo registered-modules)) (begin
(let ((mod (resolve-module modname #f))) (set! registered-modules (delq! modinfo registered-modules))
(save-module-excursion (let ((mod (resolve-module modname #f)))
(lambda () (save-module-excursion
(set-current-module mod) (lambda ()
(set-module-public-interface! mod mod) (set-current-module mod)
(dynamic-call (cadr modinfo) (caddr modinfo)) (set-module-public-interface! mod mod)
)) (dynamic-call (cadr modinfo) (caddr modinfo))
#t) ))
#t))
#f)) #f))
registered-modules)) registered-modules))