me/guix
Archived
1
0
Fork 0
Code Activity

utils: Add helper for invoking programs.

Browse source 
* guix/build/utils.scm (invoke): New variable.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Danny Milosavljevic 2017-06-01 19:04:10 +02:00
parent 9491227dcb
commit 3f65c190d2
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/build/utils.scm
View file

@ -84,6 +84,7 @@
fold-port-matches fold-port-matches
remove-store-references remove-store-references
wrap-program wrap-program
invoke
locale-category->string)) locale-category->string))
@ -579,6 +580,15 @@ Where every <*-phase-name> is an expression evaluating to a symbol, and
((_ phases (add-after old-phase-name new-phase-name new-phase)) ((_ phases (add-after old-phase-name new-phase-name new-phase))
(alist-cons-after old-phase-name new-phase-name new-phase phases)))) (alist-cons-after old-phase-name new-phase-name new-phase phases))))
(define (invoke program . args)
"Invoke PROGRAM with the given ARGS. Raise an error if the exit
code is non-zero; otherwise return #t."
(let ((status (apply system* program args)))
(unless (zero? status)
(error (format #f "program ~s exited with non-zero code" program)
status))
#t))
;;; ;;;
;;; Text substitution (aka. sed). ;;; Text substitution (aka. sed).