* boot-9.scm (try-using-libtool-name): Fix check on dlname to make

sure that it isn't empty, as it is when we are only buidling
static libraries.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 4033e55..5cf88b7 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+1998-12-01  Christian Lynbech  <chl@tbit.dk>
+
+       * boot-9.scm (try-using-libtool-name): Fix check on dlname to make
+       sure that it isn't empty, as it is when we are only buidling
+       static libraries.
+
 1998-11-27  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
        * session.scm (arity): New procedure.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 66381f2..8469607 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2193,7 +2193,7 @@
           (lambda ()
             (let loop ((ln (read-line)))
               (cond ((eof-object? ln) #f)
-                    ((and (>= (string-length ln) 8)
+                    ((and (> (string-length ln) 9)
                           (string=? "dlname='" (substring ln 0 8))
                           (string-index ln #\' 8))
                      =>