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

* boot-9.scm (try-using-libtool-name): Do not bother to look

Browse source 
inside libtool ".la" file, dynamic-link does this for us now.
This commit is contained in:
Marius Vollmer 2000-01-10 00:33:39 +00:00
parent b7f27d6492
commit 352d134ce5
1 changed files with 1 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2017,17 +2017,7 @@
(let ((libtool-filename (in-vicinity libdir
(string-append libname ".la"))))
(and (file-exists? libtool-filename)
(with-input-from-file libtool-filename
(lambda ()
(let loop ((ln (read-line)))
(cond ((eof-object? ln) #f)
((and (> (string-length ln) 9)
(string=? "dlname='" (substring ln 0 8))
(string-index ln #\' 8))
=>
(lambda (end)
(in-vicinity libdir (substring ln 8 end))))
(else (loop (read-line))))))))))
libtool-filename)))
(define (try-using-sharlib-name libdir libname)
(in-vicinity libdir (string-append libname ".so")))