aboutsummaryrefslogtreecommitdiff
path: root/guix/build/lisp-utils.scm
diff options
context:
space:
mode:
authorAndy Patterson <ajpatter@uwaterloo.ca>2018-08-30 01:36:30 -0400
committerLudovic Courtès <ludo@gnu.org>2018-09-19 18:25:28 +0200
commite831a1668b0556068343dce8cecacef2014a96e9 (patch)
treea2d0bf60a1f1d53d6335ad4eb80406df9b1c3bac /guix/build/lisp-utils.scm
parent29a3ffb44623701c2c24b8e921e23d03dde02a4a (diff)
downloadguix-e831a1668b0556068343dce8cecacef2014a96e9.tar
guix-e831a1668b0556068343dce8cecacef2014a96e9.tar.gz
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 <ludo@gnu.org>
Diffstat (limited to 'guix/build/lisp-utils.scm')
-rw-r--r--guix/build/lisp-utils.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/guix/build/lisp-utils.scm b/guix/build/lisp-utils.scm
index 9cf479dac5..7c0a68ca97 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