[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

12/23: gnu: slib: Return #t from phases.

From: Tobias Geerinckx-Rice
Subject: 12/23: gnu: slib: Return #t from phases.
Date: Wed, 27 Jun 2018 07:01:51 -0400 (EDT)

nckx pushed a commit to branch master
in repository guix.

commit 2e14ca198230878405a00d4351e5424a7b964a22
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Jun 26 16:39:45 2018 +0200

    gnu: slib: Return #t from phases.
    * gnu/packages/scheme.scm (slib)[arguments]: Substitute INVOKE for
    SYSTEM*. Return #t rather than undefined from phases.
 gnu/packages/scheme.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index 4d5c835..db39632 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -882,12 +882,13 @@ regular-expression notation.")
          (add-after 'install 'remove-bin-share
                     (lambda* (#:key inputs outputs #:allow-other-keys)
-                       (string-append (assoc-ref outputs "out") "/bin"))))
+                       (string-append (assoc-ref outputs "out") "/bin"))
+                      #t))
          (replace 'configure
                   (lambda* (#:key inputs outputs #:allow-other-keys)
-                    (zero? (system* "./configure"
-                                    (string-append "--prefix="
-                                                   (assoc-ref outputs 
+                    (invoke "./configure"
+                            (string-append "--prefix="
+                                           (assoc-ref outputs "out"))))))))
     (native-inputs `(("unzip" ,unzip)
                      ("texinfo" ,texinfo)))
     (home-page "";)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]