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

* slib.scm (install-require-module): Fixed the kludge which loads

Browse source 
the slib catalog: Doesn't anylonger assume that the feature tested
for isn't loaded.
This commit is contained in:
Mikael Djurfeldt 1999-01-11 07:48:49 +00:00
parent a5cae3f309
commit 12ed431d8d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/slib.scm
View file

@ -222,8 +222,8 @@
(acons name vicinity *vicinity-table*))))) (acons name vicinity *vicinity-table*)))))
(define (install-require-module name vicinity-name file-name) (define (install-require-module name vicinity-name file-name)
(if (not *catalog*) ;Fix which loads catalog in (if (not *catalog*) ;Fix which loads catalog in slib
(require:provided? 'random)) ;slib2b2 (catalog:get 'random)) ;(doesn't load the feature 'random)
(let ((entry (assq name *catalog*)) (let ((entry (assq name *catalog*))
(vicinity (cdr (assq vicinity-name *vicinity-table*)))) (vicinity (cdr (assq vicinity-name *vicinity-table*))))
(let ((path-name (in-vicinity vicinity file-name))) (let ((path-name (in-vicinity vicinity file-name)))