futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: Fix load-extension path in packaging of guile-ncurses.

Browse Source 
* 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.
This commit is contained in:
John Darrington 2016-12-19 14:03:40 +01:00
parent 1feeb2e035
commit 8c4e99cca3
No known key found for this signature in database
GPG Key ID: 8A67719C2DE827B3
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/guile.scm
View File

@ -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