diff options
| author | Andy Patterson <ajpatter@uwaterloo.ca> | 2018-08-30 01:36:30 -0400 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-19 18:25:28 +0200 |
| commit | e831a1668b0556068343dce8cecacef2014a96e9 (patch) | |
| tree | a2d0bf60a1f1d53d6335ad4eb80406df9b1c3bac | |
| parent | 29a3ffb44623701c2c24b8e921e23d03dde02a4a (diff) | |
| download | patches-e831a1668b0556068343dce8cecacef2014a96e9.tar patches-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>
| -rw-r--r-- | guix/build/lisp-utils.scm | 3 |
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 |