08/15: gnu: chez-scheme: Return #t from all phases.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 55623cf08adb2be38b5b4789c18f2b9ede970719
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Sat Feb 16 15:30:10 2019 +0100

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

diff --git a/gnu/packages/chez.scm b/gnu/packages/chez.scm
index 8476eef..863a32c 100644
--- a/gnu/packages/chez.scm
+++ b/gnu/packages/chez.scm
@@ -122,7 +122,8 @@
              ;; next one; see <https://github.com/cisco/ChezScheme/issues/209>.
              (substitute* "csug/copyright.stex"
                (("\\\\INSERTREVISIONMONTHSPACEYEAR" )
-                "October 2017"))))     ; tarball release date
+                "October 2017"))       ; tarball release date
+             #t))
          ;; Adapt the custom 'configure' script.
          (replace 'configure
            (lambda* (#:key inputs outputs #:allow-other-keys)
@@ -140,7 +141,7 @@
                          (apply unpack (list #:source src))
                          (apply patch-source-shebangs (list #:source src)))
                        (delete-file-recursively new-name)
-                       (system* "mv" orig-name new-name)))
+                       (invoke "mv" orig-name new-name)))
                     `((,nanopass "nanopass-framework-scheme-1.9" "nanopass")
                       (,stex "stex-1.2.1" "stex")))
                ;; The Makefile wants to download and compile "zlib".  We patch
@@ -174,14 +175,14 @@
                  (("/bin/true") (which "true")))
                (substitute* "stex/Makefile"
                  (("PREFIX=/usr") (string-append "PREFIX=" out)))
-               (zero? (system* "./configure" "--threads"
-                               (string-append "--installprefix=" out))))))
+               (invoke "./configure" "--threads"
+                       (string-append "--installprefix=" out)))))
          ;; Installation of the documentation requires a running "chez".
          (add-after 'install 'install-doc
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((doc (string-append (assoc-ref outputs "doc")
                                        "/share/doc/" ,name "-" ,version)))
-               (system* "make" "docs")
+               (invoke "make" "docs")
                (with-directory-excursion "csug"
                  (substitute* "Makefile"
                    ;; The ‘installdir=’ can't be overruled on the command line.
@@ -191,7 +192,7 @@
                    ;; Avoid the whole mess by running the (machine-independent)
                    ;; ‘installsh’ script at its original location.
                    (("\\$m/installsh") "makefiles/installsh"))
-                 (system* "make" "install")
+                 (invoke "make" "install")
                  (install-file "csug.pdf" doc))
                (with-directory-excursion "release_notes"
                  (install-file "release_notes.pdf" doc))