06/10: Use INVOKE in (gnu packages shells).

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 2385ecb22450f7d6671013808df1398945b80264
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Thu Sep 20 04:13:51 2018 +0200

    Use INVOKE in (gnu packages shells).
    
    * gnu/packages/shells.scm (mksh)[arguments]: Use INVOKE...
    (scsh)[arguments]: ...and also return #t from all phases.
---
 gnu/packages/shells.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm
index 245496a..8362d00 100644
--- a/gnu/packages/shells.scm
+++ b/gnu/packages/shells.scm
@@ -417,7 +417,7 @@ use of experts and novices alike.")
                #t))
            (add-after 'unpack 'autoreconf
              (lambda _
-               (zero? (system* "autoreconf")))))))
+               (invoke "autoreconf"))))))
       (inputs
        `(("scheme48" ,scheme48)
          ("scheme48-rx" ,scheme48-rx)))
@@ -623,7 +623,7 @@ interactive POSIX shell targeted at resource-constrained 
systems.")
          (replace 'build
            (lambda _
              (setenv "CC" "gcc")
-             (zero? (system* (which "sh") "Build.sh"))))
+             (invoke (which "sh") "Build.sh")))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
@@ -632,7 +632,8 @@ interactive POSIX shell targeted at resource-constrained 
systems.")
                (install-file "mksh" bin)
                (with-directory-excursion bin
                  (symlink "mksh" "ksh"))
-               (install-file "mksh.1" man)))))))
+               (install-file "mksh.1" man)
+               #t))))))
     (home-page "https://www.mirbsd.org/mksh.htm";)
     (synopsis "Korn Shell from MirBSD")
     (description "mksh is an actively developed free implementation of the