* slib.scm (install-require-module): In newer versions of slib

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 0a33fd8..e021b76 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+Thu Jul 24 04:28:11 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+       * slib.scm (install-require-module): In newer versions of slib
+       *catalog* is #f until the first access.  Therefore we call
+       require:provided? for a random feature if *catalog* is #f.
+
 Wed Jul 23 20:13:04 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
        * boot-9.scm: If using emacs interface, enable backtraces

diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index 3266de5..71ecb8d 100644 (file)
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -195,6 +195,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
   (let ((entry (assq name *catalog*))
        (vicinity (cdr (assq vicinity-name *vicinity-table*))))
     (let ((path-name (in-vicinity vicinity file-name)))