guix_mirror_bot pushed a commit to branch core-packages-team in repository guix.
commit a1636766486b21af5a04d740a207e08a1e40f47b Author: Ludovic Courtès <[email protected]> AuthorDate: Tue Mar 17 22:58:18 2026 +0100 gnu: commencement: Account for ‘invoke’ throwing on error. * gnu/packages/commencement.scm (mes-boot)[arguments]: Change (or (invoke …) …) to just (invoke …). (tcc-boot0)[arguments]: Likewise. (unpack-and-symlink-other-tarballs-phase): Likewise. Change-Id: I012b7e62d743488d9356c8d221a7668840c4df91 Signed-off-by: Ludovic Courtès <[email protected]> --- gnu/packages/commencement.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index 264951cd880..06fd8a0a6f9 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -460,10 +460,8 @@ MesCC-Tools), and finally M2-Planet.") ((filename . source) ;; Conveniently select archives other than "source", here nyacc (when (string-suffix? ".tar.gz" filename) - ;; Unpack it (with-directory-excursion ".." - (or (invoke "tar" "xvf" source) - (error "failed to unpack tarball" source)))))) + (invoke "tar" "xvf" source))))) inputs))) (replace 'configure (lambda* (#:key inputs #:allow-other-keys) @@ -578,8 +576,7 @@ MesCC-Tools), and finally M2-Planet.") (when (string-suffix? ".tar.gz" filename) ;; Unpack it (with-directory-excursion ".." - (or (invoke "tar" "xvf" source) - (error "failed to unpack tarball" source)))))) + (invoke "tar" "xvf" source))))) inputs))) (replace 'configure (lambda* (#:key inputs outputs #:allow-other-keys) @@ -1328,8 +1325,7 @@ ac_cv_c_float_format='IEEE (little-endian)' ;; Only select archives other than "source" (and (or gz xz) ;; Unpack them - (or (invoke "tar" "xvf" source) - (error "failed to unpack tarball" source)) + (invoke "tar" "xvf" source) ;; Create symlinks like `gmp' -> `gmp-x.y.z'. (let* ((suffix (if gz ".tar.gz" ".tar.xz")) (name-version (string-trim-right
