14/15: gnu: chez-scmutils: Return #t from all phases.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 2245f210ea5ef729408aba3f9795cf69b2805e67
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Sat Feb 16 18:50:44 2019 +0100

    gnu: chez-scmutils: Return #t from all phases.
    
    * gnu/packages/chez.scm (chez-scmutils)[arguments]: Always return #t from 
phases.
    Substitute INVOKE for SYSTEM*.
---
 gnu/packages/chez.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/chez.scm b/gnu/packages/chez.scm
index c45085b..98742ee 100644
--- a/gnu/packages/chez.scm
+++ b/gnu/packages/chez.scm
@@ -598,7 +598,7 @@ required to port the program 'Scmutils' to Chez Scheme.")
          (delete 'build)
          (add-after 'install 'install-src
            (lambda* (#:key (make-flags '()) #:allow-other-keys)
-             (zero? (apply system* "make" "install-src" make-flags))))
+             (apply invoke "make" "install-src" make-flags)))
          (add-after 'install-src 'absolute-path-in-scm-files
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
@@ -618,12 +618,13 @@ required to port the program 'Scmutils' to Chez Scheme.")
              (let* ((out (assoc-ref outputs "out"))
                     (mk-file (car (find-files out "Makefile"))))
                (with-directory-excursion (dirname mk-file)
-                 (zero? (apply system* "make" "build" make-flags))))))
+                 (apply invoke "make" "build" make-flags)))))
          (add-after 'build 'clean-up
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out")))
                (for-each delete-file
-                         (find-files out "Makefile|compile-all\\.ss"))))))))
+                         (find-files out "Makefile|compile-all\\.ss"))
+               #t))))))
     (synopsis "Port of MIT/GNU Scheme Scmutils to Chez Scheme")
     (description "This package provides a port of the MIT/GNU Scheme
 Scmutils program to Chez Scheme.  The port consists of a set of