From 12ed431d8daa777c0f385e9703134fca72848c97 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Mon, 11 Jan 1999 07:48:49 +0000 Subject: [PATCH] * 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. --- ice-9/slib.scm | 4 ++-- 1 file 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)))