05/07: build-system/asdf: Use invoke.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit e831a1668b0556068343dce8cecacef2014a96e9
Author: Andy Patterson <address@hidden>
Date:   Thu Aug 30 01:36:30 2018 -0400

    build-system/asdf: Use invoke.
    
    * guix/build/lisp-utils.scm (lisp-eval-program): Replace system* and error
    handling with invoke.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 guix/build/lisp-utils.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/guix/build/lisp-utils.scm b/guix/build/lisp-utils.scm
index 9cf479d..7c0a68c 100644
--- a/guix/build/lisp-utils.scm
+++ b/guix/build/lisp-utils.scm
@@ -121,8 +121,7 @@ name of an ASD system, and asd-file is the full path to its 
definition."
   "Evaluate PROGRAM with a given LISP implementation."
   (define invocation (lisp-invocation program))
   (format #t "Invoking ~a: ~{~s ~}~%" (%lisp-type) invocation)
-  (unless (zero? (apply system* invocation))
-    (error "lisp-eval-program failed!" invocation)))
+  (apply invoke invocation))
 
 (define (spread-statements program argument-name)
   "Return a list with the statements from PROGRAM spread between