02/03: gnu: ledger: Use invoke and fix #t return.

[Arun Isaac]

arunisaac pushed a commit to branch master
in repository guix.

commit 1f3c4ba8f3465cc0f27ba6e0a32cc438a7232b43
Author: Arun Isaac <address@hidden>
Date:   Wed Jul 4 18:13:31 2018 +0530

    gnu: ledger: Use invoke and fix #t return.
    
    * gnu/packages/finance.scm (ledger)[arguments]: Replace system* with invoke 
in
    build-doc phase. Remove #t return from relocate-elisp phase since
    emacs-generate-autoloads already returns #t.
---
 gnu/packages/finance.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm
index 3eab2fa..a4a9d1b 100644
--- a/gnu/packages/finance.scm
+++ b/gnu/packages/finance.scm
@@ -171,7 +171,7 @@ line client and a client based on Qt.")
                (install-file "test/input/demo.ledger" examples))
              #t))
          (add-after 'build 'build-doc
-           (lambda _ (zero? (system* "make" "doc"))))
+           (lambda _ (invoke "make" "doc")))
          (add-before 'check 'check-setup
            ;; One test fails if it can't set the timezone.
            (lambda* (#:key inputs #:allow-other-keys)
@@ -189,8 +189,7 @@ line client and a client based on Qt.")
                     (dest-dir (string-append guix-dir "/ledger-mode")))
                (mkdir-p guix-dir)
                (rename-file orig-dir dest-dir)
-               (emacs-generate-autoloads ,name dest-dir))
-             #t)))))
+               (emacs-generate-autoloads ,name dest-dir)))))))
     (inputs
      `(("boost" ,boost)
        ("gmp" ,gmp)