Fixing call to install-symbolic-link.

This commit is contained in:
Alex Shinn 2014-06-23 22:18:33 +09:00
parent bf2cad09f0
commit 7668d5ebad

View file

@ -914,7 +914,8 @@
(let ((lib-name (library-name lib))) (let ((lib-name (library-name lib)))
(if (not (equal? pkg-name (take lib-name (length pkg-name)))) (if (not (equal? pkg-name (take lib-name (length pkg-name))))
(let ((lib-meta (get-library-meta-file cfg lib))) (let ((lib-meta (get-library-meta-file cfg lib)))
(install-symbolic-link path (make-path install-dir lib-meta)))))) (install-symbolic-link
cfg path (make-path install-dir lib-meta))))))
(package-libraries pkg))))) (package-libraries pkg)))))
;; The default installer just copies the library file and any included ;; The default installer just copies the library file and any included