01/01: gnu: femtolisp: Use INVOKE.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 723f332551c336790e6fd628e4418f5be2eb42c0
Author: Ricardo Wurmus <address@hidden>
Date:   Fri Jan 25 23:10:03 2019 +0100

    gnu: femtolisp: Use INVOKE.
    
    * gnu/packages/scheme.scm (femtolisp)[arguments]: Remove "bootstrap" phase;
    use INVOKE and return #T unconditionally.
---
 gnu/packages/scheme.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index b836447..bcaccb4 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -1147,6 +1147,7 @@ generation.")
          #:test-target "test"
          #:phases
          (modify-phases %standard-phases
+           (delete 'bootstrap)
            (delete 'configure) ; No configure script
            (replace 'install ; Makefile has no 'install phase
             (lambda* (#:key outputs #:allow-other-keys)
@@ -1160,9 +1161,9 @@ generation.")
              (lambda* (#:key outputs #:allow-other-keys)
               (let* ((out (assoc-ref outputs "out"))
                      (bin (string-append out "/bin")))
-                (and
-                 (zero? (system* "./bootstrap.sh"))
-                 (install-file "flisp.boot" bin))))))))
+                (invoke "./bootstrap.sh")
+                (install-file "flisp.boot" bin)
+                #t))))))
       (synopsis "Scheme-like lisp implementation")
       (description
        "@code{femtolisp} is a scheme-like lisp implementation with a