[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: Fix load-extension path in packaging of guile-ncurses.
From: |
John Darrington |
Subject: |
01/01: gnu: Fix load-extension path in packaging of guile-ncurses. |
Date: |
Tue, 20 Dec 2016 05:43:55 +0000 (UTC) |
jmd pushed a commit to branch master
in repository guix.
commit 8c4e99cca393608f8be4b163249379590195bdfd
Author: John Darrington <address@hidden>
Date: Mon Dec 19 14:03:40 2016 +0100
gnu: Fix load-extension path in packaging of guile-ncurses.
* gnu/packages/guile.scm (guile-ncurses) [arguments]: Install shared object
before
attempting to build the package. Patch load-extension path before building
instead
of after.
---
gnu/packages/guile.scm | 22 +++++++++++++---------
1 file changed, 13 insertions(+), 9 deletions(-)
diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 1653685..741728d 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -431,16 +431,20 @@ many readers as needed).")
"--with-gnu-filesystem-hierarchy")
#:phases
(modify-phases %standard-phases
- (add-after 'install 'post-install
+ (add-before 'build 'fix-libguile-ncurses-file-name
(lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (dir (string-append out "/share/guile/site/"))
- (files (find-files dir ".scm")))
- (substitute* files
- (("\"libguile-ncurses\"")
- (format #f "\"~a/lib/guile/2.0/libguile-ncurses\""
- out)))
- #t))))))
+ (and (zero? (system* "make" "install"
+ "-C" "src/ncurses"
+ "-j" (number->string
+ (parallel-job-count))))
+ (let* ((out (assoc-ref outputs "out"))
+ (dir "src/ncurses")
+ (files (find-files dir ".scm")))
+ (substitute* files
+ (("\"libguile-ncurses\"")
+ (format #f "\"~a/lib/guile/2.0/libguile-ncurses\""
+ out)))
+ #t)))))))
(home-page "https://www.gnu.org/software/guile-ncurses/")
(synopsis "Guile bindings to ncurses")
(description