guix_mirror_bot pushed a commit to branch core-packages-team in repository guix.
commit 584726e349a4fe7024f5466e35213eea490c31c9 Author: Nicolas Graves <[email protected]> AuthorDate: Tue Feb 17 12:37:01 2026 +0100 gnu: gnu-make-mesboot0: Improve style. * gnu/packages/commencement.scm (gnu-make-mesboot0)[arguments]: Improve style, use G-expressions. Change-Id: Id29cdd6b31e219f71a1f0fb3fa7cf3d03de27674 Signed-off-by: Ludovic Courtès <[email protected]> --- gnu/packages/commencement.scm | 66 ++++++++++++++++++++++--------------------- 1 file changed, 34 insertions(+), 32 deletions(-) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index fcd4a6a61a3..7947a443f99 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -692,40 +692,42 @@ MesCC-Tools), and finally M2-Planet.") (propagated-inputs '()) (native-inputs (cons* tcc-boot0 (%boot-gash-inputs))) (arguments - `(#:implicit-inputs? #f - #:guile ,%bootstrap-guile - #:configure-flags '("CC=tcc" - "CPP=tcc -E" - "LD=tcc" - "--build=i686-unknown-linux-gnu" - "--host=i686-unknown-linux-gnu" - "--disable-nls") - #:modules ((guix build gnu-build-system) + (list + #:implicit-inputs? #f + #:guile %bootstrap-guile + #:configure-flags + #~(list "CC=tcc" + "CPP=tcc -E" + "LD=tcc" + "--build=i686-unknown-linux-gnu" + "--host=i686-unknown-linux-gnu" + "--disable-nls") + #:modules '((guix build gnu-build-system) (guix build utils) (srfi srfi-1)) - #:strip-binaries? #f ; no strip yet - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'scripted-patch - (lambda _ - (substitute* "build.sh.in" - (("@LIBOBJS@") "getloadavg.o") - (("@REMOTE@") "stub")))) - (add-after 'configure 'configure-fixup - (lambda _ - (substitute* "make.h" - (("^extern long int lseek.*" all) (string-append "// " all))))) - (replace 'build - (lambda _ - (invoke "sh" "./build.sh"))) - (replace 'check ; proper check needs awk - (lambda _ - (invoke "./make" "--version"))) - (replace 'install - (lambda _ - (let* ((out (assoc-ref %outputs "out")) - (bin (string-append out "/bin"))) - (install-file "make" bin))))))))) + #:strip-binaries? #f ; no strip yet + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'scripted-patch + (lambda _ + (substitute* "build.sh.in" + (("@LIBOBJS@") "getloadavg.o") + (("@REMOTE@") "stub")))) + (add-after 'configure 'configure-fixup + (lambda _ + (substitute* "make.h" + (("^extern long int lseek.*" all) + (string-append "// " all))))) + (replace 'build + (lambda _ + (invoke "sh" "./build.sh"))) + (replace 'check ; proper check needs awk + (lambda _ + (invoke "./make" "--version"))) + (replace 'install + (lambda _ + (install-file "make" + (string-append #$output "/bin"))))))))) (define (%boot-tcc0-inputs) `(("make" ,gnu-make-mesboot0)
