ffi: Fix install-shim's installation directory.

Write to the first directory on the library-directory-path.

diff --git a/src/ffi/build.scm.in b/src/ffi/build.scm.in
index 43df2bcf370aa5577597cc928e86dbaaef3c42ec..4a44dfded1d304034d6413043049028cb661d062 100644 (file)
--- a/src/ffi/build.scm.in
+++ b/src/ffi/build.scm.in
@@ -34,13 +34,11 @@ USA.
   (run-command (append CCLD LDFLAGS (command-line) MODULE_LDFLAGS)))
 
 (define (install-shim libname)
-  (let ((library-dir (merge-pathnames (pathname-as-directory libname)
-                                     (system-library-directory-pathname))))
-    (run-command (list "install" "-m" "644"
-                      (string-append libname "-shim.so")
-                      (string-append libname "-types.bin")
-                      (string-append libname "-const.bin")
-                      (->namestring library-dir)))))
+  (run-command (list "install" "-m" "644"
+                    (string-append libname "-shim.so")
+                    (string-append libname "-types.bin")
+                    (string-append libname "-const.bin")
+                    (->namestring (system-library-directory-pathname)))))
 
 (define (install-load-option name #!optional directory)
   (guarantee-string name 'INSTALL-OPTION)