* slib.scm (slib-parent-dir): throw error if #f returned from

%search-load-path.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 428a372..c41e52b 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+Wed Dec 11 21:06:05 1996  Gary Houston  <ghouston@actrix.gen.nz>
+
+       * slib.scm (slib-parent-dir): throw error if #f returned from
+       %search-load-path.
+
 Sat Nov 30 23:57:28 1996  Tom Tromey  <tromey@cygnus.com>
 
        * PLUGIN/greet, PLUGIN/split.sed, PLUGIN/this.configure: Removed.

diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index 5a3e3e7..0e717db 100644 (file)
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -127,7 +127,9 @@
 
 (define slib-parent-dir
   (let* ((path (%search-load-path "slib/require.scm")))
-    (make-shared-substring path 0 (- (string-length path) 17))))
+    (if path
+       (make-shared-substring path 0 (- (string-length path) 17))
+       (error "Could not find slib/require.scm in " %load-path))))
 
 (define-public (implementation-vicinity)
   (string-append slib-parent-dir "/"))