Bug in find-and-link-dynamic-module

[Thomas Wawrzinek]

Hi!

When playing around with dynamically loadable modules written in pure C I
found that on my Linux box guile tries to access weirdly named libraries
(that do not exist), like libfoo.la.la or libfoo.so.la.

The following fix works for me:

--- boot-9.scm  Tue Jun  5 13:26:56 2001
+++ boot-9.scm.2        Tue Jun  5 13:26:16 2001
@@ -1944,7 +1944,7 @@
                     (or (try-using-libtool-name dir libname)
                         (try-using-sharlib-name dir libname))))
               (if (and sharlib-full (file-exists? sharlib-full))
-                  (link-dynamic-module sharlib-full init)
+                  (link-dynamic-module libname init)
                   (check-dirs (cdr dir-list)))))))))
  
  (define (try-using-libtool-name libdir libname)

Regards,

                        Thomas