mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +02:00
Code Activity

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

Browse source 
sure that it isn't empty, as it is when we are only buidling
static libraries.
This commit is contained in:
Mikael Djurfeldt 1998-12-01 07:35:00 +00:00
parent afae5cbdcb
commit 49e5d550cb
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -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> 1998-11-27 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* session.scm (arity): New procedure. * session.scm (arity): New procedure.

2
ice-9/boot-9.scm
View file

@ -2193,7 +2193,7 @@
(lambda () (lambda ()
(let loop ((ln (read-line))) (let loop ((ln (read-line)))
(cond ((eof-object? ln) #f) (cond ((eof-object? ln) #f)
((and (>= (string-length ln) 8) ((and (> (string-length ln) 9)
(string=? "dlname='" (substring ln 0 8)) (string=? "dlname='" (substring ln 0 8))
(string-index ln #\' 8)) (string-index ln #\' 8))
=> =>