nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: guile-ncurses: Unconditionally return #T from build phases. 

* gnu/packages/guile.scm (guile-ncurses)[arguments]: Use INVOKE.
This commit is contained in:
Ricardo Wurmus 2019-01-26 22:22:30 +01:00
parent d59a8ac629
commit e5855e6f6b
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/guile.scm
View File

@ -674,18 +674,18 @@ many readers as needed).")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'build 'fix-libguile-ncurses-file-name (add-before 'build 'fix-libguile-ncurses-file-name
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(and (zero? (system* "make" "install" (invoke "make" "install"
"-C" "src/ncurses" "-C" "src/ncurses"
"-j" (number->string "-j" (number->string
(parallel-job-count)))) (parallel-job-count)))
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(dir "src/ncurses") (dir "src/ncurses")
(files (find-files dir ".scm"))) (files (find-files dir ".scm")))
(substitute* files (substitute* files
(("\"libguile-ncurses\"") (("\"libguile-ncurses\"")
(format #f "\"~a/lib/guile/2.2/libguile-ncurses\"" (format #f "\"~a/lib/guile/2.2/libguile-ncurses\""
out))) out)))
#t))))))) #t))))))
(home-page "https://www.gnu.org/software/guile-ncurses/") (home-page "https://www.gnu.org/software/guile-ncurses/")
(synopsis "Guile bindings to ncurses") (synopsis "Guile bindings to ncurses")
(description (description