03/11: gnu: monero: Return #t from phases.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 797445be47af389610541f9eb969537845d301d9
Author: Theodoros Foradis <address@hidden>
Date:   Sun Jul 8 20:39:27 2018 +0300

    gnu: monero: Return #t from phases.
    
    * gnu/packages/finance.scm (monero)[arguments]: Substitute invoke for 
system*.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/finance.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm
index 333fe65..ccfb98c 100644
--- a/gnu/packages/finance.scm
+++ b/gnu/packages/finance.scm
@@ -430,9 +430,8 @@ other machines/servers.  Electroncash does not download the 
Bitcoin Cash blockch
              #t))
          (replace 'check
            (lambda _
-             (zero?
-              (system* "make" "ARGS=-E 'unit_tests|libwallet_api_tests'"
-                       "test"))))
+             (invoke "make" "ARGS=-E 'unit_tests|libwallet_api_tests'"
+                     "test")))
          ;; The excluded unit tests need network access
          (add-after 'check 'unit-tests
            (lambda _
@@ -445,10 +444,9 @@ other machines/servers.  Electroncash does not download 
the Bitcoin Cash blockch
                        "DNSResolver.DNSSECFailure"
                        "DNSResolver.GetTXTRecord")
                      ":")))
-               (zero?
-                (system* "tests/unit_tests/unit_tests"
-                         (string-append "--gtest_filter=-"
-                                        excluded-unit-tests))))))
+               (invoke "tests/unit_tests/unit_tests"
+                       (string-append "--gtest_filter=-"
+                                      excluded-unit-tests)))))
          (add-after 'install 'install-blockchain-import-export
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))