11/12: gnu: tomb: Update phase style.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 635dd0cc96a5d06933a52a48bb9520efbd567550
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Sun Mar 4 00:37:59 2018 +0100

    gnu: tomb: Update phase style.
    
    * gnu/packages/crypto.scm (tomb)[arguments]: Substitute INVOKE for
    SYSTEM* and end phases with #t.
---
 gnu/packages/crypto.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm
index 7cac132..b498aab 100644
--- a/gnu/packages/crypto.scm
+++ b/gnu/packages/crypto.scm
@@ -384,9 +384,9 @@ no man page, refer to the home page for usage details.")
          (delete 'configure)   ;no configuration to be done
          (add-after 'install 'i18n
            (lambda* (#:key make-flags #:allow-other-keys)
-             (zero? (apply system*
-                           "make" "-C" "extras/translations"
-                           "install" make-flags))))
+             (apply invoke "make" "-C" "extras/translations"
+                    "install" make-flags)
+             #t))
          (add-after 'install 'wrap
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
@@ -411,7 +411,8 @@ no man page, refer to the home page for usage details.")
              ;; querying `tomb -h`.
              (let ((tomb (string-append (assoc-ref outputs "out")
                                         "/bin/tomb")))
-               (zero? (system* tomb "dig" "-s" "10" "secrets.tomb"))))))))
+               (invoke tomb "dig" "-s" "10" "secrets.tomb")
+               #t))))))
     (home-page "https://www.dyne.org/software/tomb";)
     (synopsis "File encryption for secret data")
     (description