[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: gnu: guile-ncurses: Unconditionally return #T from build phases.
From: |
guix-commits |
Subject: |
03/03: gnu: guile-ncurses: Unconditionally return #T from build phases. |
Date: |
Sat, 26 Jan 2019 16:28:10 -0500 (EST) |
rekado pushed a commit to branch master
in repository guix.
commit e5855e6f6bcccdeb49c44b10610458a1a72b888d
Author: Ricardo Wurmus <address@hidden>
Date: Sat Jan 26 22:22:30 2019 +0100
gnu: guile-ncurses: Unconditionally return #T from build phases.
* gnu/packages/guile.scm (guile-ncurses)[arguments]: Use INVOKE.
---
gnu/packages/guile.scm | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 98221a8..b9580b0 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -674,18 +674,18 @@ many readers as needed).")
(modify-phases %standard-phases
(add-before 'build 'fix-libguile-ncurses-file-name
(lambda* (#:key outputs #:allow-other-keys)
- (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.2/libguile-ncurses\""
- out)))
- #t)))))))
+ (invoke "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.2/libguile-ncurses\""
+ out)))
+ #t))))))
(home-page "https://www.gnu.org/software/guile-ncurses/")
(synopsis "Guile bindings to ncurses")
(description