diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-01-11 07:48:49 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-01-11 07:48:49 +0000 |
| commit | 12ed431d8daa777c0f385e9703134fca72848c97 (patch) | |
| tree | 2dc18868b2a04b4e09a24a0474f7bd7abb93f751 | |
| parent | a5cae3f309320df640fb8df3221a0359a0fd8ac3 (diff) | |
| download | guile-12ed431d8daa777c0f385e9703134fca72848c97.tar.gz | |
* slib.scm (install-require-module): Fixed the kludge which loads
the slib catalog: Doesn't anylonger assume that the feature tested
for isn't loaded.
| -rw-r--r-- | ice-9/slib.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ice-9/slib.scm b/ice-9/slib.scm index 76140c6d8..2bd0c00e4 100644 --- a/ice-9/slib.scm +++ b/ice-9/slib.scm @@ -222,8 +222,8 @@ (acons name vicinity *vicinity-table*))))) (define (install-require-module name vicinity-name file-name) - (if (not *catalog*) ;Fix which loads catalog in - (require:provided? 'random)) ;slib2b2 + (if (not *catalog*) ;Fix which loads catalog in slib + (catalog:get 'random)) ;(doesn't load the feature 'random) (let ((entry (assq name *catalog*)) (vicinity (cdr (assq vicinity-name *vicinity-table*)))) (let ((path-name (in-vicinity vicinity file-name))) |