From 352d134ce528a2c2d868a7bf362e64803b96f221 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 10 Jan 2000 00:33:39 +0000 Subject: [PATCH] * boot-9.scm (try-using-libtool-name): Do not bother to look inside libtool ".la" file, dynamic-link does this for us now. --- ice-9/boot-9.scm | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 10d586273..80758722f 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -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")))