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

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

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