From 85e9a2c3b988869ee92c757599db20451599f645 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 16 Sep 2013 20:56:47 -0700 Subject: [PATCH] ffi: Fix install-shim's installation directory. Write to the first directory on the library-directory-path. --- src/ffi/build.scm.in | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/src/ffi/build.scm.in b/src/ffi/build.scm.in index 43df2bcf3..4a44dfded 100644 --- 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) -- 2.25.1