From 2a50c9598bb7fe4175c4f29df07656a7f0a07801 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 7 Mar 2026 11:19:10 +0100 Subject: [PATCH] =?UTF-8?q?gnu:=20Reference=20the=20inherited=20=E2=80=98a?= =?UTF-8?q?rguments=E2=80=99=20value.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This commit was made by running this command: sed -e's/substitute-keyword-arguments (package-arguments [a-zA-Z0-9-]\+)/substitute-keyword-arguments arguments/g' -i gnu/packages/*.scm … and then: 1. reverting changes from ‘gnu/packages/rust.scm’ and ‘gnu/packages/java.scm’ since they would incur derivation changes and/or breakage; 2. reverting the change for ‘gcc-final’ in ‘gnu/packages/commencement.scm’; 3. reverting the change for ‘onnx-optimizer’, ‘openquest’, and ‘certbot’, which use ‘substitute-keyword-arguments’ for arguments that are not inherited (and thus ‘arguments’ would be unbound); 4. reverting the change for ‘insight-toolkit-legacy’ and ‘wine64-staging’ which make bogus assumptions about inherited arguments. Change-Id: I122a7cf517b6b63cae38944b5d33ade4b1f5a89c --- gnu/packages/admin.scm | 6 +- gnu/packages/aidc.scm | 4 +- gnu/packages/algebra.scm | 10 +-- gnu/packages/apparmor.scm | 4 +- gnu/packages/aspell.scm | 2 +- gnu/packages/astronomy.scm | 4 +- gnu/packages/audio.scm | 4 +- gnu/packages/avr.scm | 2 +- gnu/packages/backup.scm | 2 +- gnu/packages/base.scm | 14 ++-- gnu/packages/bash.scm | 4 +- gnu/packages/bdw-gc.scm | 4 +- gnu/packages/bioinformatics.scm | 8 +- gnu/packages/bittorrent.scm | 2 +- gnu/packages/boost.scm | 8 +- gnu/packages/bootloaders.scm | 36 ++++----- gnu/packages/build-tools.scm | 2 +- gnu/packages/chemistry.scm | 2 +- gnu/packages/chromium.scm | 2 +- gnu/packages/cmake.scm | 2 +- gnu/packages/commencement.scm | 45 +++++------ gnu/packages/compression.scm | 4 +- gnu/packages/cpp.scm | 16 ++-- gnu/packages/cross-base.scm | 8 +- gnu/packages/crypto.scm | 2 +- gnu/packages/cryptsetup.scm | 4 +- gnu/packages/cups.scm | 2 +- gnu/packages/curl.scm | 2 +- gnu/packages/databases.scm | 6 +- gnu/packages/debug.scm | 2 +- gnu/packages/django.scm | 2 +- gnu/packages/docbook.scm | 8 +- gnu/packages/electronics.scm | 10 +-- gnu/packages/elf.scm | 4 +- gnu/packages/emacs-xyz.scm | 6 +- gnu/packages/emacs.scm | 18 ++--- gnu/packages/embedded.scm | 24 +++--- gnu/packages/emulators.scm | 12 +-- gnu/packages/engineering.scm | 2 +- gnu/packages/file-systems.scm | 4 +- gnu/packages/finance.scm | 2 +- gnu/packages/firmware.scm | 16 ++-- gnu/packages/flex.scm | 2 +- gnu/packages/fluidplug.scm | 2 +- gnu/packages/fontutils.scm | 4 +- gnu/packages/freedesktop.scm | 6 +- gnu/packages/games.scm | 10 +-- gnu/packages/gawk.scm | 2 +- gnu/packages/gcc.scm | 24 +++--- gnu/packages/gdb.scm | 6 +- gnu/packages/geo.scm | 2 +- gnu/packages/gettext.scm | 6 +- gnu/packages/gl.scm | 6 +- gnu/packages/glib.scm | 8 +- gnu/packages/gnome.scm | 28 +++---- gnu/packages/gnuzilla.scm | 4 +- gnu/packages/gpodder.scm | 2 +- gnu/packages/graph.scm | 2 +- gnu/packages/graphics.scm | 4 +- gnu/packages/groff.scm | 2 +- gnu/packages/groovy.scm | 14 ++-- gnu/packages/gstreamer.scm | 2 +- gnu/packages/gtk.scm | 10 +-- gnu/packages/guile-xyz.scm | 12 +-- gnu/packages/guile.scm | 2 +- gnu/packages/haskell.scm | 4 +- gnu/packages/hurd.scm | 6 +- gnu/packages/ibus.scm | 2 +- gnu/packages/icu4c.scm | 2 +- gnu/packages/image-processing.scm | 6 +- gnu/packages/image.scm | 2 +- gnu/packages/instrumentation.scm | 2 +- gnu/packages/java-bootstrap.scm | 2 +- gnu/packages/julia-xyz.scm | 2 +- gnu/packages/julia.scm | 2 +- gnu/packages/jupyter.scm | 2 +- gnu/packages/kde-frameworks.scm | 4 +- gnu/packages/kodi.scm | 2 +- gnu/packages/libffi.scm | 2 +- gnu/packages/linux.scm | 32 ++++---- gnu/packages/lisp-xyz.scm | 34 ++++----- gnu/packages/llvm.scm | 32 ++++---- gnu/packages/lua.scm | 2 +- gnu/packages/luanti.scm | 6 +- gnu/packages/machine-learning.scm | 8 +- gnu/packages/make-bootstrap.scm | 14 ++-- gnu/packages/maths.scm | 40 +++++----- gnu/packages/maven-parent-pom.scm | 6 +- gnu/packages/maven.scm | 12 +-- gnu/packages/medical.scm | 4 +- gnu/packages/messaging.scm | 2 +- gnu/packages/monitoring.scm | 14 ++-- gnu/packages/mpi.scm | 10 +-- gnu/packages/music.scm | 6 +- gnu/packages/ncurses.scm | 4 +- gnu/packages/node.scm | 4 +- gnu/packages/ocaml.scm | 6 +- gnu/packages/onc-rpc.scm | 2 +- gnu/packages/openldap.scm | 2 +- gnu/packages/openstack.scm | 12 +-- gnu/packages/package-management.scm | 6 +- gnu/packages/parallel.scm | 4 +- gnu/packages/password-utils.scm | 2 +- gnu/packages/plan9.scm | 2 +- gnu/packages/potassco.scm | 6 +- gnu/packages/profiling.scm | 4 +- gnu/packages/protobuf.scm | 4 +- gnu/packages/pypy.scm | 2 +- gnu/packages/python-crypto.scm | 2 +- gnu/packages/python-science.scm | 4 +- gnu/packages/python-web.scm | 2 +- gnu/packages/python-xyz.scm | 12 +-- gnu/packages/python.scm | 6 +- gnu/packages/qt.scm | 56 +++++++------- gnu/packages/racket.scm | 6 +- gnu/packages/ruby-xyz.scm | 10 +-- gnu/packages/rust-apps.scm | 12 +-- gnu/packages/samba.scm | 2 +- gnu/packages/scanner.scm | 2 +- gnu/packages/search.scm | 2 +- gnu/packages/selinux.scm | 8 +- gnu/packages/serialization.scm | 6 +- gnu/packages/simulation.scm | 2 +- gnu/packages/sqlite.scm | 2 +- gnu/packages/ssh.scm | 2 +- gnu/packages/statistics.scm | 2 +- gnu/packages/suckless.scm | 6 +- gnu/packages/swift.scm | 4 +- gnu/packages/telegram.scm | 2 +- gnu/packages/telephony.scm | 2 +- gnu/packages/tex.scm | 112 ++++++++++++++-------------- gnu/packages/texinfo.scm | 4 +- gnu/packages/text-editors.scm | 2 +- gnu/packages/textutils.scm | 4 +- gnu/packages/tls.scm | 4 +- gnu/packages/toolkits.scm | 2 +- gnu/packages/tor-browsers.scm | 2 +- gnu/packages/tor.scm | 4 +- gnu/packages/version-control.scm | 6 +- gnu/packages/video.scm | 14 ++-- gnu/packages/vim.scm | 2 +- gnu/packages/virtualization.scm | 6 +- gnu/packages/webkit.scm | 6 +- gnu/packages/wine.scm | 4 +- gnu/packages/wm.scm | 8 +- gnu/packages/wxwidgets.scm | 6 +- gnu/packages/xml.scm | 2 +- gnu/packages/xorg.scm | 4 +- gnu/packages/zig-xyz.scm | 4 +- gnu/packages/zig.scm | 6 +- gnu/packages/zile.scm | 2 +- 151 files changed, 580 insertions(+), 579 deletions(-) diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 4f68bd4742..79576270d6 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -2718,7 +2718,7 @@ command.") (patches (search-patches "wpa-supplicant-dbus-group-policy.patch")))) (arguments - (substitute-keyword-arguments (package-arguments wpa-supplicant-minimal) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-after 'configure 'set-config-options @@ -4746,7 +4746,7 @@ system distribution, akin to many similar tools.") (inherit fastfetch-minimal) (name "fastfetch") (arguments - (substitute-keyword-arguments (package-arguments fastfetch-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append #$flags (list "-DBINARY_LINK_TYPE=dynamic" @@ -6166,7 +6166,7 @@ then it can be a greeter.") (inherit pam-mount) (name "greetd-pam-mount") (arguments - (substitute-keyword-arguments (package-arguments pam-mount) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons* "--with-rundir=/run/greetd" #$flags)) ((#:phases phases) diff --git a/gnu/packages/aidc.scm b/gnu/packages/aidc.scm index bff153cf97..46f6a24f00 100644 --- a/gnu/packages/aidc.scm +++ b/gnu/packages/aidc.scm @@ -169,7 +169,7 @@ integration of this capability into your own programs.") (package/inherit zint (name "zint-with-qt") (build-system qt-build-system) - (arguments (substitute-keyword-arguments (package-arguments zint) + (arguments (substitute-keyword-arguments arguments ((#:disallowed-references references) (delete qtbase references)) ((#:qtbase _ #f) @@ -391,7 +391,7 @@ Python as well as GUI widgets for GTK and Qt.") (name "zbar-minimal") (build-system gnu-build-system) (arguments - (substitute-keyword-arguments (package-arguments zbar) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--with-gtk=no" (delete "--with-gtk=auto" #$flags))) ((#:disallowed-references _ '()) diff --git a/gnu/packages/algebra.scm b/gnu/packages/algebra.scm index e9911d6561..17c9898fd3 100644 --- a/gnu/packages/algebra.scm +++ b/gnu/packages/algebra.scm @@ -954,7 +954,7 @@ gnu build version.")))) (package/inherit fftw (name "fftwf") (arguments - (substitute-keyword-arguments (package-arguments fftw) + (substitute-keyword-arguments arguments ((#:configure-flags fftw-configure-flags) `(cons* "--enable-single" ,@(if (string-prefix? "arm" (or (%current-target-system) @@ -975,7 +975,7 @@ gnu build version.")))) `(("openmpi" ,openmpi) ,@(package-inputs fftw))) (arguments - (substitute-keyword-arguments (package-arguments fftw) + (substitute-keyword-arguments arguments ((#:configure-flags cf) `(cons "--enable-mpi" ,cf)) ((#:phases phases '%standard-phases) @@ -1434,7 +1434,7 @@ features, and more.") ;; XXX: Some tests fail, but onnxruntime will move on to the next ;; release soon enough. (arguments - (substitute-keyword-arguments (package-arguments eigen) + (substitute-keyword-arguments arguments ((#:tests? tests? #t) #f))))))) @@ -1462,7 +1462,7 @@ features, and more.") ;; XXX: Tests stable_norm_5 and stable_norm_6 are failing due to ;; EIGEN_STATIC_ASSERT_VECTOR_SPECIFIC_SIZE. (arguments - (substitute-keyword-arguments (package-arguments eigen) + (substitute-keyword-arguments arguments ((#:tests? flag #f) #false))))))) (define-public xtensor @@ -2192,7 +2192,7 @@ and not by the available RAM.") (inherit form) (name "parform") (arguments - (substitute-keyword-arguments (package-arguments form) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--enable-parform=yes" #$flags)) ((#:phases phases) diff --git a/gnu/packages/apparmor.scm b/gnu/packages/apparmor.scm index 9840da72fa..082bbea28b 100644 --- a/gnu/packages/apparmor.scm +++ b/gnu/packages/apparmor.scm @@ -128,7 +128,7 @@ supported by Canonical since 2009.") "USE_SYSTEM=1" ;; No need to run the linter "PYFLAKES=true")) - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'configure) @@ -189,7 +189,7 @@ supported by Canonical since 2009.") (arguments (append (list #:tests? #f) ;no tests - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'chdir-parser) diff --git a/gnu/packages/aspell.scm b/gnu/packages/aspell.scm index 3a8048e867..d08343aa23 100644 --- a/gnu/packages/aspell.scm +++ b/gnu/packages/aspell.scm @@ -464,7 +464,7 @@ European languages.") (patches (search-patches "ispell-for-linphone-cmake.patch")))) (build-system cmake-build-system) (arguments - (substitute-keyword-arguments (package-arguments ispell) + (substitute-keyword-arguments arguments ((#:modules _ ''()) '((guix build cmake-build-system) (guix build utils) diff --git a/gnu/packages/astronomy.scm b/gnu/packages/astronomy.scm index 70676e527f..cb7dea8711 100644 --- a/gnu/packages/astronomy.scm +++ b/gnu/packages/astronomy.scm @@ -3228,7 +3228,7 @@ celestial-to-terrestrial coordinate transformations.") (package/inherit python-astropy (name "python-astropy-minimal") (arguments - (substitute-keyword-arguments (package-arguments python-astropy) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f))) (native-inputs (list nss-certs-for-test @@ -10446,7 +10446,7 @@ functionality needed for solar data analysis.") (package/inherit python-sunpy (name "python-sunpy-minimal") (arguments - (substitute-keyword-arguments (package-arguments python-sunpy) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f))) (native-inputs (list python-setuptools diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index a23301c2ac..67efdedee1 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -3083,7 +3083,7 @@ auto-wah.") (package (inherit guitarix) (name "guitarix-lv2") (arguments - (substitute-keyword-arguments (package-arguments guitarix) + (substitute-keyword-arguments arguments ((#:configure-flags flags) `(cons "--no-standalone" ,flags)))))) @@ -5257,7 +5257,7 @@ stretching and pitch scaling of audio. This package contains the library.") (base32 "11srnzgpavcj6n70zjdm7488jzrprk71mg9dgr1sa6vwp575hf2m")))) (arguments - (substitute-keyword-arguments (package-arguments libsbsms) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'fix-ar-lib-path) diff --git a/gnu/packages/avr.scm b/gnu/packages/avr.scm index 6a69e549d0..c445f3a83a 100644 --- a/gnu/packages/avr.scm +++ b/gnu/packages/avr.scm @@ -60,7 +60,7 @@ (inherit xgcc) (name "avr-gcc") (arguments - (substitute-keyword-arguments (package-arguments xgcc) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'set-paths 'augment-CPLUS_INCLUDE_PATH diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm index 25e3b1c611..11dbb8382e 100644 --- a/gnu/packages/backup.scm +++ b/gnu/packages/backup.scm @@ -375,7 +375,7 @@ random access nor for in-place modification. This package provides the (base32 "0wxdr7qws1z1b1gp5jsm7n2ccnjlmrnds52d5wc5xkzagyslgf67")))) (arguments - (substitute-keyword-arguments (package-arguments libarchive) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'patch-pwd) diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm index 363453b8a9..8337f60277 100644 --- a/gnu/packages/base.scm +++ b/gnu/packages/base.scm @@ -602,7 +602,7 @@ standard.") (base32 "0mxhw43d4wpqmvg0l4znk1vm10fy92biyh90lzdnqjcic2lb6cg8")))) (arguments - (substitute-keyword-arguments (package-arguments coreutils-minimal) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) `(modify-phases ,phases (add-before 'check 'disable-broken-test @@ -756,7 +756,7 @@ included.") "1cmd0riv37bqy9mwbg6n3523qgr8b3bbm5kwj19sjrasl4yq9d0c")) (patches '()))) (arguments - (substitute-keyword-arguments (package-arguments binutils) + (substitute-keyword-arguments arguments ((#:make-flags _ #~'()) #~'()))) (native-inputs '()) (properties '()))) @@ -774,7 +774,7 @@ included.") (sha256 (base32 "1j64m2czn9ygd5g1cjjcw7q43b18xh6qkrdl1pkm03ncjnj3wwrl")))) (arguments - (substitute-keyword-arguments (package-arguments binutils) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--enable-gold=default" (delete "LDFLAGS=-static-libgcc" #$flags))) @@ -802,7 +802,7 @@ included.") (modify-inputs (package-native-inputs binutils) (append texinfo))) ; because makeinfo is needed when building bfd alone (arguments - (substitute-keyword-arguments (package-arguments binutils) + (substitute-keyword-arguments arguments ;; Only build as a shared library ((#:configure-flags flags) #~(append #$flags '("--enable-shared" "--disable-static"))) @@ -1295,7 +1295,7 @@ with the Linux kernel.") "glibc-hurd-mach-print.patch" "glibc-hurd-gettyent.patch")))) (arguments - (substitute-keyword-arguments (package-arguments glibc) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* "CFLAGS=-g -O2 -Wno-error=builtin-declaration-mismatch" "--enable-crypt" @@ -1335,7 +1335,7 @@ with the Linux kernel.") "glibc-hurd-clock_gettime_monotonic.patch"))) (origin-patches (package-source glibc-2.35))))))) (arguments - (substitute-keyword-arguments (package-arguments glibc) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* #$(string-append "CFLAGS=-g -O2" @@ -1747,7 +1747,7 @@ and daylight-saving rules.") (hidden-package (package/inherit tzdata (arguments - (substitute-keyword-arguments (package-arguments tzdata) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'post-install 'install-leap-seconds diff --git a/gnu/packages/bash.scm b/gnu/packages/bash.scm index 9735cb72f0..069b21f6a9 100644 --- a/gnu/packages/bash.scm +++ b/gnu/packages/bash.scm @@ -287,7 +287,7 @@ without modification.") (outputs (delete "include" (package-outputs bash))) (arguments - (substitute-keyword-arguments (package-arguments bash) + (substitute-keyword-arguments arguments ((#:modules _ '()) '((guix build gnu-build-system) (guix build utils) @@ -351,7 +351,7 @@ without modification.") (package/inherit bash (name "bash-with-syslog") (arguments - (substitute-keyword-arguments (package-arguments bash) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) `(modify-phases ,phases (add-after 'unpack 'enable-syslogging diff --git a/gnu/packages/bdw-gc.scm b/gnu/packages/bdw-gc.scm index f7c3768145..4f0845f300 100644 --- a/gnu/packages/bdw-gc.scm +++ b/gnu/packages/bdw-gc.scm @@ -117,7 +117,7 @@ C or C++ programs, though that is not its primary goal.") (package/inherit libgc (arguments - (substitute-keyword-arguments (package-arguments libgc) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons "--enable-static" #$flags)))) @@ -141,7 +141,7 @@ C or C++ programs, though that is not its primary goal.") libgc (name "libgc-back-pointers") (arguments - (substitute-keyword-arguments (package-arguments libgc) + (substitute-keyword-arguments arguments ((#:make-flags _ #~'()) #~(list "CPPFLAGS=-DKEEP_BACK_PTRS=1")))) (synopsis "The BDW garbage collector, with back-pointer tracking"))) diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index ce6be1e4d8..a0b2f6db62 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -5793,7 +5793,7 @@ and more accurate. BWA-MEM also has better performance than BWA-backtrack for "076c4q0cdqz8jgylb067y9zmvxglppnzi3qiscn0xiypgc6lgb5r")))) (build-system gnu-build-system) (arguments - (substitute-keyword-arguments (package-arguments bwa) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (add-after 'unpack 'patch-C-error @@ -6674,7 +6674,7 @@ meso, or continuum scale.") (inherit lammps) (name "lammps-serial") (arguments - (substitute-keyword-arguments (package-arguments lammps) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(list ;; activate all possible lammps packages. @@ -11050,7 +11050,7 @@ viewer.") `(#:tests? #f ;no "check" target #:make-flags (list "LIBCURSES=-lncurses") - ,@(substitute-keyword-arguments (package-arguments samtools) + ,@(substitute-keyword-arguments arguments ((#:modules _ #f) '((ice-9 ftw) (ice-9 regex) @@ -12336,7 +12336,7 @@ sequences.") (package (inherit star) (name "starlong") (arguments - (substitute-keyword-arguments (package-arguments star) + (substitute-keyword-arguments arguments ((#:make-flags flags) `(list "STARlong")) ((#:phases phases) diff --git a/gnu/packages/bittorrent.scm b/gnu/packages/bittorrent.scm index ef21fb2824..83f29b0bb5 100644 --- a/gnu/packages/bittorrent.scm +++ b/gnu/packages/bittorrent.scm @@ -593,7 +593,7 @@ features.") (inherit base) (name "qbittorrent-no-x") (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(cons "-DGUI=OFF" #$configure-flags)))) (inputs diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm index c8fcec1b21..b98b72a23b 100644 --- a/gnu/packages/boost.scm +++ b/gnu/packages/boost.scm @@ -272,7 +272,7 @@ across a broad spectrum of applications.") (base32 "13iviiwk1srpw9dmiwabkxv56v0pl0zggjp8zxy1419k5zzfsy34")))) (arguments - (substitute-keyword-arguments (package-arguments boost) + (substitute-keyword-arguments arguments ((#:make-flags _ #f) #~(list "threading=multi" "link=shared" ;; Set the RUNPATH to $libdir so that the libs find each other. @@ -306,7 +306,7 @@ across a broad spectrum of applications.") (inherit boost) (name "boost-static") (arguments - (substitute-keyword-arguments (package-arguments boost) + (substitute-keyword-arguments arguments ((#:make-flags flags) #~(cons "link=static" (delete "link=shared" #$flags))))))) @@ -324,7 +324,7 @@ across a broad spectrum of applications.") (base32 "1jj1aai5rdmd72g90a3pd8sw9vi32zad46xv5av8fhnr48ir6ykj")))) (arguments - (substitute-keyword-arguments (package-arguments boost) + (substitute-keyword-arguments arguments ((#:configure-flags _ #~'()) #~(let ((icu (dirname (dirname (search-input-file %build-inputs "bin/uconv"))))) @@ -452,7 +452,7 @@ signals and slots system.") (modify-inputs (package-inputs boost) (append openmpi))) (arguments - (substitute-keyword-arguments (package-arguments boost) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'configure 'update-jam diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm index 2560e8c249..ff50626548 100644 --- a/gnu/packages/bootloaders.scm +++ b/gnu/packages/bootloaders.scm @@ -318,7 +318,7 @@ menu to select one of the installed operating systems.") (modify-inputs (package-native-inputs grub) (delete "help2man" "texinfo" "parted" "qemu" "qemu-minimal" "xorriso"))) (arguments - (substitute-keyword-arguments (package-arguments grub-pc) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f) ((#:phases phases #~%standard-phases) #~(modify-phases #$phases @@ -338,7 +338,7 @@ menu to select one of the installed operating systems.") (inherit base) (synopsis "GRand Unified Boot loader (Coreboot payload version)") (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (add-before 'check 'disable-broken-tests @@ -422,7 +422,7 @@ menu to select one of the installed operating systems.") (modify-inputs (package-native-inputs base) (delete "parted" "qemu-minimal" "xorriso"))))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:tests? _ #f) (and (not (%current-target-system)) (this-package-native-input "qemu-minimal"))) ((#:configure-flags flags #~'()) @@ -497,7 +497,7 @@ menu to select one of the installed operating systems.") (name "grub-efi32") (synopsis "GRand Unified Boot loader (UEFI 32bit version)") (arguments - (substitute-keyword-arguments (package-arguments grub-efi) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* #$@(cond ((target-x86?) #~("--target=i386")) @@ -587,7 +587,7 @@ menu to select one of the installed operating systems.") (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ;; Running the tests isn't supported for this grub platform. ((#:tests? _ #t) #f))) (synopsis "GRand Unified Boot loader (u-boot version)") @@ -607,7 +607,7 @@ menu to select one of the installed operating systems.") (modify-inputs (package-inputs grub-efi) (prepend grub))) (arguments - (substitute-keyword-arguments (package-arguments grub-efi) + (substitute-keyword-arguments arguments ((#:modules modules `((guix build utils) (guix build gnu-build-system))) `((ice-9 ftw) ,@modules)) @@ -1176,7 +1176,7 @@ U-Boot must be used." (package-description u-boot))) (build-system gnu-build-system) (arguments - (substitute-keyword-arguments (package-arguments u-boot) + (substitute-keyword-arguments arguments ((#:target _ #f) (and (not (native-build?)) triplet)) ((#:modules modules '()) @@ -1277,7 +1277,7 @@ CONFIG_TOOLS_KWBIMAGE=n")))) (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'set-environment @@ -1317,7 +1317,7 @@ removed so that it fits within common partitioning schemes."))) (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'set-environment @@ -1338,7 +1338,7 @@ removed so that it fits within common partitioning schemes."))) (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'set-environment @@ -1445,7 +1445,7 @@ Documentation} for more information (for example by running @samp{info (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'install 'symlink-u-boot-command @@ -1463,7 +1463,7 @@ Documentation} for more information (for example by running @samp{info (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'set-environment @@ -1479,7 +1479,7 @@ Documentation} for more information (for example by running @samp{info (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'set-environment @@ -1498,7 +1498,7 @@ Documentation} for more information (for example by running @samp{info (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'set-environment @@ -1676,7 +1676,7 @@ grub-efi-netboot-removable-bootloader.") (base32 "01mja33351hkcs59rmfvppqlxqw4rh9gng7a7hx2cfspqwh2y6kr")))) (arguments - (substitute-keyword-arguments (package-arguments u-boot) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'unpack 'patch-u-boot @@ -1803,7 +1803,7 @@ For more information, refer to (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'patch-u-boot 'set-default-fdt-file @@ -2044,7 +2044,7 @@ the features of iPXE without the hassle of reflashing.") binutils (name "binutils-64-bit-bfd") (arguments - (substitute-keyword-arguments (package-arguments binutils) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons* "--enable-64-bit-bfd" #$flags))))))) (modify-inputs (package-native-inputs ipxe) @@ -2066,7 +2066,7 @@ the features of iPXE without the hassle of reflashing.") ("rtl8139" . ("10ec" . "8139")) ("virtio" . ("1af4" . "1000")) ("vmxnet3" . ("15ad" . "07b0"))))) - (substitute-keyword-arguments (package-arguments ipxe) + (substitute-keyword-arguments arguments ((#:modules modules) `((ice-9 match) ,@modules)) ((#:make-flags flags) diff --git a/gnu/packages/build-tools.scm b/gnu/packages/build-tools.scm index 07217ea12d..b27d52a2b9 100644 --- a/gnu/packages/build-tools.scm +++ b/gnu/packages/build-tools.scm @@ -537,7 +537,7 @@ other lower-level build files.") (base32 "0q287af75d6w3c7dbfq7rmbh9isqzs9v30fjpm37lcafs2p7966k")))) (arguments - (substitute-keyword-arguments (package-arguments premake4) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (replace 'enter-source diff --git a/gnu/packages/chemistry.scm b/gnu/packages/chemistry.scm index e9e6a97f9a..023a112419 100644 --- a/gnu/packages/chemistry.scm +++ b/gnu/packages/chemistry.scm @@ -1005,7 +1005,7 @@ electromagnetic properties for molecules and crystals.") ;; Autogenerated code (delete-file-recursively "src/autocode"))))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons "-DBUILD_MARCH_NATIVE=OFF" #$flags)) diff --git a/gnu/packages/chromium.scm b/gnu/packages/chromium.scm index 5d1b9efaf6..67fc681fc0 100644 --- a/gnu/packages/chromium.scm +++ b/gnu/packages/chromium.scm @@ -502,7 +502,7 @@ (package/inherit opus (name "opus+custom") (arguments - (substitute-keyword-arguments (package-arguments opus) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) ;; Opus Custom is an optional extension of the Opus ;; specification that allows for unsupported frame diff --git a/gnu/packages/cmake.scm b/gnu/packages/cmake.scm index 59f71dff45..c4f7c1b79c 100644 --- a/gnu/packages/cmake.scm +++ b/gnu/packages/cmake.scm @@ -386,7 +386,7 @@ and workspaces that can be used in the compiler environment of your choice.") "125yhgkmh5ap14w9yyh442manbb7k96dws4pa3hz32qp7njpjn3n")))) (outputs '("out" "doc")) (arguments - (substitute-keyword-arguments (package-arguments cmake-minimal) + (substitute-keyword-arguments arguments ;; Use cmake-minimal this time. ((#:cmake _ #f) (if (%current-target-system) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index 3c02b8f74f..3b9e9d4ea2 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012-2025 Ludovic Courtès +;;; Copyright © 2012-2026 Ludovic Courtès ;;; Copyright © 2014 Andreas Enge ;;; Copyright © 2012 Nikita Karetnikov ;;; Copyright © 2014, 2015, 2017 Mark H Weaver @@ -1185,7 +1185,7 @@ ac_cv_c_float_format='IEEE (little-endian)' ("kernel-headers" ,%bootstrap-linux-libre-headers) ,@(%boot-mesboot-core-inputs))) (arguments - (substitute-keyword-arguments (package-arguments gcc-core-mesboot0) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'setenv @@ -1231,7 +1231,7 @@ ac_cv_c_float_format='IEEE (little-endian)' (name "binutils-mesboot1") (native-inputs (%boot-mesboot0-inputs)) (arguments - (substitute-keyword-arguments (package-arguments binutils-mesboot0) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(let ((out (assoc-ref %outputs "out"))) `("--disable-nls" "--disable-shared" @@ -1441,7 +1441,7 @@ ac_cv_c_float_format='IEEE (little-endian)' "1fqqk5zkmdg4vmqzdmip9i42q6b82i3f6yc0n86n9021cr7ms2k9")))) ,@(package-native-inputs gcc-core-mesboot1))) (arguments - (substitute-keyword-arguments (package-arguments gcc-core-mesboot1) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(let ((out (assoc-ref %outputs "out"))) `("--enable-languages=c,c++" @@ -1572,7 +1572,7 @@ ac_cv_c_float_format='IEEE (little-endian)' (native-inputs `(("headers" ,mesboot-headers) ,@(%boot-mesboot3-inputs))) (arguments - (substitute-keyword-arguments (package-arguments glibc-mesboot0) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(let ((out (assoc-ref %outputs "out")) (headers (assoc-ref %build-inputs "headers"))) @@ -1671,7 +1671,7 @@ SHELL := " shell " ,@(%boot-mesboot3-inputs))) (arguments `(#:validate-runpath? #f ; fails when using --enable-shared - ,@(substitute-keyword-arguments (package-arguments glibc-headers-mesboot) + ,@(substitute-keyword-arguments arguments ((#:make-flags make-flags) #~(let ((bash (assoc-ref %build-inputs "bash"))) (list (string-append "SHELL=" bash "/bin/sh")))) @@ -1768,7 +1768,7 @@ exec " gcc "/bin/" program ,@(%boot-mesboot4-inputs))) (arguments `(#:validate-runpath? #f - ,@(substitute-keyword-arguments (package-arguments gcc-mesboot1) + ,@(substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(let ((out (assoc-ref %outputs "out")) (glibc (assoc-ref %build-inputs "libc"))) @@ -1954,7 +1954,7 @@ exec " gcc "/bin/" program `(("xz" ,xz-mesboot) ("sed" ,sed-mesboot) ,@(package-native-inputs pkg))) - (arguments (substitute-keyword-arguments (package-arguments pkg) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) `(cons "--disable-year2038" ,flags))))))) @@ -1987,7 +1987,7 @@ exec " gcc "/bin/" program `(#:guile ,%bootstrap-guile #:implicit-inputs? #f #:tests? #f ; cannot run "make check" - ,@(substitute-keyword-arguments (package-arguments gnu-make) + ,@(substitute-keyword-arguments arguments ((#:configure-flags flags ''()) ;; The generated config.status has some problems due to the ;; bootstrap environment. Disable dependency tracking to work @@ -2090,7 +2090,7 @@ exec " gcc "/bin/" program #:guile ,%bootstrap-guile ;; The build system assumes we have done a mistake when time_t is 32-bit ;; on a 64-bit system. Ignore that for our bootstrap toolchain. - ,@(substitute-keyword-arguments (package-arguments findutils) + ,@(substitute-keyword-arguments arguments ((#:configure-flags flags ''()) `(append ;; TODO: Figure out exactly with architectures need this. @@ -2275,7 +2275,7 @@ exec " gcc "/bin/" program (remove-triplet-prefix name))) (scandir "." has-triplet-prefix?)))))))) - (substitute-keyword-arguments (package-arguments binutils) + (substitute-keyword-arguments arguments ((#:configure-flags cf) #~(append (list #$(string-append "--target=" (boot-triplet)) @@ -2303,7 +2303,7 @@ exec " gcc "/bin/" program ,@(match (%current-system) ((or "i686-linux" "x86_64-linux") - (substitute-keyword-arguments (package-arguments lib) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'workaround-wrapper-bug @@ -2336,7 +2336,7 @@ exec " gcc "/bin/" program ;; XXX: libstdc++.so NEEDs ld.so for some reason. #:validate-runpath? #f - ,@(substitute-keyword-arguments (package-arguments lib) + ,@(substitute-keyword-arguments arguments ((#:configure-flags flags) (if (target-hurd64?) #~(cons* "--disable-shared" @@ -2405,7 +2405,7 @@ exec " gcc "/bin/" program (ice-9 regex) (srfi srfi-1) (srfi srfi-26)) - (substitute-keyword-arguments (package-arguments gcc) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append (list #$(string-append "--target=" (boot-triplet)) @@ -2557,7 +2557,7 @@ exec " gcc "/bin/" program ;; At the very least, this must not depend on GCC & co. #:disallowed-references (list %bootstrap-binutils)) - (substitute-keyword-arguments (package-arguments perl) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases ;; Pthread support is missing in the bootstrap compiler @@ -2672,7 +2672,7 @@ memoized as a function of '%current-system'." (arguments `(#:guile ,%bootstrap-guile #:implicit-inputs? #f - ,@(substitute-keyword-arguments (package-arguments linux-libre-headers) + ,@(substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-after 'unpack 'lower-version-requirements @@ -2762,7 +2762,7 @@ memoized as a function of '%current-system'." gnumach-headers-boot0)) (inputs (list flex-boot0 gnumach-headers-boot0)) (arguments - (substitute-keyword-arguments (package-arguments mig) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(list (string-append "LDFLAGS=-Wl,-rpath=" #$(this-package-native-input "flex") @@ -2852,7 +2852,7 @@ memoized as a function of '%current-system'." `(#:implicit-inputs? #f #:guile ,%bootstrap-guile - ,@(substitute-keyword-arguments (package-arguments expat) + ,@(substitute-keyword-arguments arguments ((#:configure-flags flags ''()) ;; Since we're not passing the right -Wl,-rpath flags, build the ;; static library to avoid RUNPATH validation failure. @@ -2986,7 +2986,7 @@ memoized as a function of '%current-system'." `(#:guile ,%bootstrap-guile #:implicit-inputs? #f - ,@(substitute-keyword-arguments (package-arguments libc) + ,@(substitute-keyword-arguments arguments ((#:configure-flags flags) `(append (list ,(string-append "--host=" (boot-triplet)) ,(string-append "--build=" @@ -3104,7 +3104,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%" `(#:implicit-inputs? #f #:guile ,%bootstrap-guile - ,@(substitute-keyword-arguments (package-arguments static-bash) + ,@(substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) ;; Add a '-L' flag so that the pseudo-cross-ld of ;; BINUTILS-BOOT0 can find libc.a. @@ -3236,7 +3236,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%" ,@(if (target-powerpc? (%current-system)) (list static-bash-for-glibc) '()))) - (substitute-keyword-arguments (package-arguments binutils) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) ;; For gprofng, tell the build system where to look for libstdc++. #~(append #$flags @@ -3301,6 +3301,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%" (srfi srfi-26) ,@%default-gnu-modules) + ;; TODO: Consider writing 'arguments' instead of (package-arguments gcc). (substitute-keyword-arguments (package-arguments gcc) ((#:make-flags flags) ;; Since $LIBRARY_PATH is not honored, add the relevant flags. @@ -3430,7 +3431,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%" (modify-inputs (package-inputs parent) (delete "libxcrypt"))) (arguments - (substitute-keyword-arguments (package-arguments parent) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (delete 'add-libxcrypt-reference-pkgconfig)))))))) diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index 3af60e9658..3ff9781ad2 100644 --- a/gnu/packages/compression.scm +++ b/gnu/packages/compression.scm @@ -923,7 +923,7 @@ C, forked from the zip manipulation library found in the zlib distribution.") (package/inherit minizip-ng (name "minizip-ng-compat") (arguments - (substitute-keyword-arguments (package-arguments minizip-ng) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "-DMZ_COMPAT=OFF" #$flags)))))) @@ -3148,7 +3148,7 @@ exported by the zlib library.") "0672q35vjrpakmsr1gwj9k5fwv5ihzhahm19bq4y74wqpn91p7fw")) (patches (search-patches "miniz-for-pytorch.patch")))) (arguments - (substitute-keyword-arguments (package-arguments miniz) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) ;; The changes break the examples. `(cons "-DBUILD_EXAMPLES=OFF" ,flags)))) diff --git a/gnu/packages/cpp.scm b/gnu/packages/cpp.scm index c2b31ecbb6..cbccbf5fc5 100644 --- a/gnu/packages/cpp.scm +++ b/gnu/packages/cpp.scm @@ -2290,7 +2290,7 @@ Google's C++ code base.") (patches (search-patches "abseil-cpp-20220623.1-no-kepsilon-i686.patch")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) (if (target-riscv64?) #~(cons* "-DCMAKE_SHARED_LINKER_FLAGS=-latomic" @@ -2337,7 +2337,7 @@ Google's C++ code base.") (hidden-package (package/inherit base (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* #$(string-append "-DCMAKE_CXX_STANDARD=" (number->string version)) @@ -2348,7 +2348,7 @@ Google's C++ code base.") (hidden-package (package/inherit base (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "-DCMAKE_POSITION_INDEPENDENT_CODE=ON" (delete "-DBUILD_SHARED_LIBS=ON" #$flags))))))))) @@ -3810,7 +3810,7 @@ parsing with only a single memory allocation.") "sajson-for-gemmi-numbers-as-strings.patch") (origin-patches (package-source sajson)))))) (arguments - (substitute-keyword-arguments (package-arguments sajson) + (substitute-keyword-arguments arguments ;; This is a modified version used in gemmi, in which numbers are kept ;; as strings. Building the tests fails with the modification. ((#:tests? _ #f) #f))) @@ -4059,7 +4059,7 @@ common controls and win32-style extensions.") (inherit swell) (name "swell-colortheme") (arguments - (substitute-keyword-arguments (package-arguments swell) + (substitute-keyword-arguments arguments ((#:make-flags flags) #~(append #$flags '("libSwell.colortheme"))) ((#:phases phases) @@ -4083,7 +4083,7 @@ programs that use @code{swell}."))) (inherit swell) (name "jnetlib") (arguments - (substitute-keyword-arguments (package-arguments swell) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #t) ((#:phases phases) #~(modify-phases #$phases @@ -4116,7 +4116,7 @@ features: (inherit swell) (name "eel2") (arguments - (substitute-keyword-arguments (package-arguments swell) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f) ;no tests ;; FIXME: Remove this flag when this issue will be fixed: ;; https://github.com/justinfrankel/WDL/issues/32. @@ -4675,7 +4675,7 @@ on @code{.po} files and doesn't need @code{.mo} files pre-generated.") (define-public tinygettext-with-sdl2 (package/inherit tinygettext (arguments - (substitute-keyword-arguments (package-arguments tinygettext) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(list "-DTINYGETTEXT_WITH_SDL=ON" "-DBUILD_TESTS=ON")))) (native-inputs (list pkg-config tinycmmc)) diff --git a/gnu/packages/cross-base.scm b/gnu/packages/cross-base.scm index cbabc0517e..a550e0c47b 100644 --- a/gnu/packages/cross-base.scm +++ b/gnu/packages/cross-base.scm @@ -79,7 +79,7 @@ (package (inherit p) (name (string-append (package-name p) "-cross-" target)) (arguments - (substitute-keyword-arguments (package-arguments p) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons #$(string-append "--target=" target) #$flags)))))) @@ -438,7 +438,7 @@ target that libc." (name (string-append (package-name gnumach-headers) "-cross-" target)) (arguments - (substitute-keyword-arguments (package-arguments gnumach-headers) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases ;; Cheat by setting the host_cpu variable manually, since using @@ -474,7 +474,7 @@ the base compiler. Use XBINUTILS as the associated cross-Binutils." (inherit mig) (name (string-append "mig-cross")) (arguments - (substitute-keyword-arguments (package-arguments mig) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(list #$(string-append "--target=" target))) ((#:tests? _ #f) @@ -543,7 +543,7 @@ the base compiler. Use XBINUTILS as the associated cross-Binutils." "-cross-" target)) (arguments - (substitute-keyword-arguments (package-arguments hurd-headers) + (substitute-keyword-arguments arguments ((#:configure-flags flags) `(cons* ,(string-append "--build=" (%current-system)) ,(string-append "--host=" target) diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm index 3a45a3ed37..31dfecb215 100644 --- a/gnu/packages/crypto.scm +++ b/gnu/packages/crypto.scm @@ -1769,7 +1769,7 @@ SunMD5, sha1crypt, NT, bsdicrypt, bigcrypt, and descrypt.") (package/inherit libxcrypt (name "libxcrypt-without-failure-tokens") (arguments - (substitute-keyword-arguments (package-arguments libxcrypt) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* "--disable-failure-tokens" #$flags))))))) diff --git a/gnu/packages/cryptsetup.scm b/gnu/packages/cryptsetup.scm index 2d2a2fbf60..925f5489c5 100644 --- a/gnu/packages/cryptsetup.scm +++ b/gnu/packages/cryptsetup.scm @@ -122,7 +122,7 @@ files). This assumes LIBRARY uses Libtool." (inherit library) (name (string-append (package-name library) "-static")) (arguments - (substitute-keyword-arguments (package-arguments library) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) (let* ((build-system (package-build-system library)) (static-flags (cond ((eq? build-system cmake-build-system) @@ -138,7 +138,7 @@ files). This assumes LIBRARY uses Libtool." (inherit cryptsetup-minimal) (name "cryptsetup-static") (arguments - (substitute-keyword-arguments (package-arguments cryptsetup-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) `(cons* "--disable-shared" "--enable-static-cryptsetup" diff --git a/gnu/packages/cups.scm b/gnu/packages/cups.scm index e6a7801e16..31243868f1 100644 --- a/gnu/packages/cups.scm +++ b/gnu/packages/cups.scm @@ -777,7 +777,7 @@ should only be used as part of the Guix cups-pk-helper service.") (package/inherit hplip (name "hplip-minimal") (arguments - (substitute-keyword-arguments (package-arguments hplip) + (substitute-keyword-arguments arguments ((#:configure-flags cf) ;; Produce a "light build", meaning that only the printer (CUPS) and ;; scanner (SANE) support gets built, without all the 'hp-*' diff --git a/gnu/packages/curl.scm b/gnu/packages/curl.scm index 544d7dd13e..65bb536cef 100644 --- a/gnu/packages/curl.scm +++ b/gnu/packages/curl.scm @@ -185,7 +185,7 @@ tunneling, and so on.") (define-public curl-ssh (package/inherit curl (arguments - (substitute-keyword-arguments (package-arguments curl) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--with-libssh2" #$flags)))) (inputs diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm index 02012e3bfb..f84b0ac11c 100644 --- a/gnu/packages/databases.scm +++ b/gnu/packages/databases.scm @@ -1491,7 +1491,7 @@ as a drop-in replacement of MySQL.") (package/inherit mariadb (name "mariadb-embedded") (arguments - (substitute-keyword-arguments (package-arguments mariadb) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append '("-DWITH_EMBEDDED_SERVER=ON") #$flags)))))) @@ -2228,7 +2228,7 @@ data in a single database. RocksDB is partially based on @code{LevelDB}.") (sha256 (base32 "0pdy461m9a48x4i829sirpypdlzf3q79p8iw3dng9wd4r4vyv594")))) - (arguments (substitute-keyword-arguments (package-arguments rocksdb) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons "-DCMAKE_CXX_FLAGS=-Wno-error=maybe-uninitialized" #$flags))))))) @@ -3256,7 +3256,7 @@ database.") (sha256 (base32 "1p7jr5048syd9ln0bsh2n5ba6fd7x9wfa1x67b7wychv7a46dfx1")))) (arguments - (substitute-keyword-arguments (package-arguments valkey-7) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (replace 'adjust-tests diff --git a/gnu/packages/debug.scm b/gnu/packages/debug.scm index 38e20eeea5..6c8b192f6d 100644 --- a/gnu/packages/debug.scm +++ b/gnu/packages/debug.scm @@ -322,7 +322,7 @@ tool.") (sha256 (base32 "03352zbp73wgwyk25f26rw7h5yqyjp6fysl2n7nj32wp16vxmlza")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags _ #~'()) #~(list (string-append "--target-list=" diff --git a/gnu/packages/django.scm b/gnu/packages/django.scm index d102c7bc75..44f054d1a5 100644 --- a/gnu/packages/django.scm +++ b/gnu/packages/django.scm @@ -309,7 +309,7 @@ to the @dfn{don't repeat yourself} (DRY) principle.") (sha256 (base32 "1znc2q1m9p2kxz1rkfkh2hg2sx6i3aqv72zsraad7bci364cvfd4")))) (arguments - (substitute-keyword-arguments (package-arguments python-django) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'delete-sitecustomize))))))) diff --git a/gnu/packages/docbook.scm b/gnu/packages/docbook.scm index 260e4cf10d..6cac689282 100644 --- a/gnu/packages/docbook.scm +++ b/gnu/packages/docbook.scm @@ -127,7 +127,7 @@ by no means limited to these applications.) This package provides XML DTDs.") (inherit template) (arguments (let ((dest-dir (format #f "xml/docbook/~a/" version))) - (substitute-keyword-arguments (package-arguments template) + (substitute-keyword-arguments arguments ;; XXX: A default value must be provided otherwise this ;; substitution has no effect. ((#:install-plan _ #f) @@ -147,7 +147,7 @@ by no means limited to these applications.) This package provides XML DTDs.") (inherit template) (arguments (let ((dest-dir (format #f "xml/docbook/~a/" version))) - (substitute-keyword-arguments (package-arguments template) + (substitute-keyword-arguments arguments ((#:install-plan _ #f) #~`(("catalog.xml" #$dest-dir) ("docbook.nvdl" #$dest-dir) @@ -167,7 +167,7 @@ downloading from @var{source}, where @var{version} is a string and (inherit base-template) (arguments (let* ((dest-dir (format #f "xml/docbook/~a/" version))) - (substitute-keyword-arguments (package-arguments base-template) + (substitute-keyword-arguments arguments ((#:phases phases) ;; Some programs, such as kdoctools, instead of using ;; XML_CATALOG_FILES, prefer to use cmake to locate @@ -247,7 +247,7 @@ downloading from @var{source}, where @var{version} is a string and (package (inherit template) (arguments - (substitute-keyword-arguments (package-arguments template) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'copy-catalog-file diff --git a/gnu/packages/electronics.scm b/gnu/packages/electronics.scm index ea1923a806..209e481ff8 100644 --- a/gnu/packages/electronics.scm +++ b/gnu/packages/electronics.scm @@ -1762,7 +1762,7 @@ which allows one to install the M8 firmware on any Teensy.") (inherit m8c) (name "m8c-serial") (arguments - (substitute-keyword-arguments (package-arguments m8c) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "-DUSE_LIBSERIAL=ON" (delete "-DUSE_LIBUSB=ON" #$flags))))) @@ -2054,7 +2054,7 @@ Automation}, portable and vendor neutral FPGA place and route tool.") (arguments (delkw #:qtbase - (substitute-keyword-arguments (package-arguments nextpnr) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(delete! "-DBUILD_GUI=ON" #$flags))))) (synopsis @@ -2069,7 +2069,7 @@ Automation}, portable and vendor neutral FPGA place and route tool.") (inherit libngspice) (name "ngspice") (arguments - (substitute-keyword-arguments (package-arguments libngspice) + (substitute-keyword-arguments arguments ;; Tests require a X server running, so we keep them disabled ((#:configure-flags flags) #~(cons* "--enable-rpath" "--with-x" "--with-readline=yes" @@ -2536,7 +2536,7 @@ clock tree synthesis, routing, parasitic extraction, and timing analysis.") (arguments (delkw #:qtbase - (substitute-keyword-arguments (package-arguments openroad) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons* "-DBUILD_GUI=OFF" (delete! "-DBUILD_GUI=ON" #$flags)))))) @@ -2690,7 +2690,7 @@ verification.") (sha256 (base32 "1kn18ibvm7bzdyw2d914284wriravyh5qwfarj06pb052x1yblyx")))) (arguments - (substitute-keyword-arguments (package-arguments osvvm) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f) ((#:phases phases #~%standard-phases) diff --git a/gnu/packages/elf.scm b/gnu/packages/elf.scm index a670d71640..3ed2cde042 100644 --- a/gnu/packages/elf.scm +++ b/gnu/packages/elf.scm @@ -319,7 +319,7 @@ static analysis of the ELF binaries at hand.") (package (inherit libelf) (arguments - (substitute-keyword-arguments (package-arguments libelf) + (substitute-keyword-arguments arguments ((#:make-flags flags #~'()) #~(append #$flags '("CFLAGS=-fPIC"))))) (properties `((hidden? . #t) ,@(package-properties libelf))))) @@ -389,7 +389,7 @@ changed.") (base32 "0zdby3gpmm8q4735pviaq92zj41i2rdnhwhyrsb3sinc9hzmz4db")))) (arguments - (substitute-keyword-arguments (package-arguments patchelf) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'fix-tests 'skip-empty-rpath-test diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index a2c204d4eb..289a87c268 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -24457,7 +24457,7 @@ of XELB.") (inherit emacs-xelb) (name "emacs-xelb-no-x-toolkit") (arguments - (substitute-keyword-arguments (package-arguments emacs-xelb) + (substitute-keyword-arguments arguments ((#:emacs emacs) `,emacs-no-x-toolkit))))) (define-public emacs-exwm-no-x-toolkit @@ -24468,7 +24468,7 @@ of XELB.") (propagated-inputs (list emacs-xelb-no-x-toolkit)) (arguments - (substitute-keyword-arguments (package-arguments emacs-exwm) + (substitute-keyword-arguments arguments ((#:emacs emacs) `,emacs-no-x-toolkit))))) (define-public emacs-switch-window @@ -43935,7 +43935,7 @@ conversion program}, a Japanese input method on Emacs.") (string-append "LISPDIR=" #$output "/share/emacs/site-lisp"))) ;; no tests in this subtree #:tests? #f) - (substitute-keyword-arguments (package-arguments emacs-ddskk) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'fix-test 'chdir diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index 6ad18152eb..7a2bf97d3b 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -496,7 +496,7 @@ languages.") (synopsis "The extensible, customizable, self-documenting text editor (console only)") (arguments - (substitute-keyword-arguments (package-arguments emacs-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* "--with-modules" "--with-native-compilation=aot" (delete "--with-gnutls=no" #$flags))) @@ -592,7 +592,7 @@ editor (console only)") (synopsis "The extensible, customizable, self-documenting text editor") (build-system glib-or-gtk-build-system) (arguments - (substitute-keyword-arguments (package-arguments emacs-no-x) + (substitute-keyword-arguments arguments ((#:modules _) (%emacs-modules build-system)) ((#:configure-flags flags #~'()) #~(cons* "--with-cairo" #$flags)) @@ -637,7 +637,7 @@ editor (console only)") (package/inherit emacs (name "emacs-pgtk") (arguments - (substitute-keyword-arguments (package-arguments emacs) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* "--with-pgtk" #$flags)))) (synopsis "Emacs text editor with @code{pgtk} frames") @@ -650,7 +650,7 @@ of GTK."))) (synopsis "The extensible, customizable, self-documenting text editor (with xwidgets support)") (arguments - (substitute-keyword-arguments (package-arguments emacs) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons "--with-xwidgets" #$flags)))) (inputs @@ -663,7 +663,7 @@ editor (with xwidgets support)") (name "emacs-pgtk-xwidgets") (synopsis "Emacs text editor with @code{xwidgets} and @code{pgtk} support") (arguments - (substitute-keyword-arguments (package-arguments emacs-pgtk) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons "--with-xwidgets" #$flags)))) (inputs @@ -712,7 +712,7 @@ editor (without X toolkit)" ) (delete "gtk+") (prepend inotify-tools))) (arguments - (substitute-keyword-arguments (package-arguments emacs-no-x) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons "--with-x-toolkit=no" #$flags)))))) @@ -722,7 +722,7 @@ editor (without X toolkit)" ) (synopsis "The extensible, customizable, self-documenting text editor (with wide ints)" ) (arguments - (substitute-keyword-arguments (package-arguments emacs) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--with-wide-int" #$flags)))))) @@ -751,7 +751,7 @@ editor (with wide ints)" ) "emacs-next-native-comp-fix-filenames.patch" "emacs-native-comp-pin-packages.patch")))) (arguments - (substitute-keyword-arguments (package-arguments emacs-minimal) + (substitute-keyword-arguments arguments ((#:make-flags flags #~'()) #~(append #$flags (list (string-append "SELECTOR=" #$%emacs-next-selector))))))))) @@ -768,7 +768,7 @@ editor (with wide ints)" ) (version version) (source source) (arguments - (substitute-keyword-arguments (package-arguments emacs) + (substitute-keyword-arguments arguments ((#:make-flags flags #~'()) #~(append #$flags (list (string-append "SELECTOR=" #$%emacs-next-selector)))))))) diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm index b69a54b133..0d06e7c41e 100644 --- a/gnu/packages/embedded.scm +++ b/gnu/packages/embedded.scm @@ -168,7 +168,7 @@ embedded-4_9-branch/") ("gcc@5" ,gcc-5) ,@(package-native-inputs xgcc))) (arguments - (substitute-keyword-arguments (package-arguments xgcc) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'set-paths 'augment-CPLUS_INCLUDE_PATH @@ -285,7 +285,7 @@ usable on embedded products.") (inherit base) (name "newlib-nano") (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ;; The configure flags are identical to the flags used by the "GCC ;; ARM embedded" project. They optimize newlib for use on small ;; embedded systems with limited memory. @@ -378,7 +378,7 @@ embedded-7-branch/") (delete "isl") (prepend flex isl-0.18))) (arguments - (substitute-keyword-arguments (package-arguments xgcc) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'expand-version-string @@ -463,7 +463,7 @@ embedded-7-branch/") (base32 "1dq23fqrk75g1a4v7569fvnnw5q440zawbxi3w0g05n8jlqsmvcy")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ;; The configure flags are identical to the flags used by the "GCC ;; ARM embedded" project. ((#:configure-flags flags) @@ -517,7 +517,7 @@ embedded-7-branch/") (delete "isl") (prepend flex isl-0.18))) (arguments - (substitute-keyword-arguments (package-arguments xgcc) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'expand-version-string @@ -602,7 +602,7 @@ embedded-7-branch/") (base32 "095j23mg928rmf4yqmj39wc0nsd207liqrdw4ygh58nygsm4gpmh")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ;; The configure flags are identical to the flags used by the "GCC ;; ARM embedded" project. ((#:configure-flags flags) @@ -645,7 +645,7 @@ embedded-7-branch/") (sha256 (base32 "0r6q0m3d8g3k3rkmnqjw8aw5fcnsrmywf4ispdkxmk1al3whk1vk")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'expand-version-string @@ -685,7 +685,7 @@ embedded-7-branch/") (sha256 (base32 "0drs9v8avh4y2h5bs0ixjn9x662jzkkikx8z034wgl41dxmn6786")))) - (arguments (substitute-keyword-arguments (package-arguments base) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--enable-newlib-mb" "--enable-newlib-reent-check-verify" @@ -761,7 +761,7 @@ embedded-7-branch/") (package (inherit base) (name "libstdc++-nano-arm-none-eabi") - (arguments (substitute-keyword-arguments (package-arguments base) + (arguments (substitute-keyword-arguments arguments ((#:make-flags flags) #~(map (lambda (flag) (if (or (string-prefix? "CFLAGS=" flag) @@ -902,7 +902,7 @@ languages are C and C++.") (inherit gdb) (name "gdb-arm-none-eabi") (arguments - (substitute-keyword-arguments (package-arguments gdb) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons* "--target=arm-none-eabi" "--enable-multilib" @@ -1069,7 +1069,7 @@ with a layered architecture of JTAG interface and TAP support.") "0w0dff3s7wv2d9m78a4jhckiik58q38wx6wpbba5hzbs4yxz35ck")) (patches '()))) (arguments - (substitute-keyword-arguments (package-arguments xbinutils) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--disable-werror" #$flags)) ;; FIXME: For some reason there are many test failures. It's not @@ -1149,7 +1149,7 @@ with a layered architecture of JTAG interface and TAP support.") (search-patches "gcc-cross-environment-variables.patch"))))) (arguments - (substitute-keyword-arguments (package-arguments xgcc) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'pre-x86-configure) diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm index 25ac99f20d..4a6a9d1632 100644 --- a/gnu/packages/emulators.scm +++ b/gnu/packages/emulators.scm @@ -692,7 +692,7 @@ turbo speed, networked multiplayer, and graphical enhancements.") "libretro-dolphin-emu-libusb-assert.patch" "libretro-dolphin-emu-vulkan-headers.patch")))) (arguments - (substitute-keyword-arguments (package-arguments dolphin-emu) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons* (string-append "-DCMAKE_CXX_FLAGS=" "-I" (search-input-directory @@ -1154,7 +1154,7 @@ The following systems are supported: (base32 "1bbcsikgcycf3cp9ciicg4yckjyamdfvgk4fgw079la59q8aw13q")))) (arguments - (substitute-keyword-arguments (package-arguments mgba) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) ;; Relax error checks to avoid a build failure with GCC 14. #~(cons "-DCMAKE_C_FLAGS=-Wno-error=incompatible-pointer-types" @@ -4249,7 +4249,7 @@ performance, features, and ease of use.") (base32 "0z9wqmx351f9160jsmprznqw5sx5lslyisbr41b9igzsr5j94db3")))) (build-system gnu-build-system) - (arguments (substitute-keyword-arguments (package-arguments bsnes) + (arguments (substitute-keyword-arguments arguments ((#:make-flags flags ''()) ;; This is needed because the modified bsnes code that ;; bsnes-hd uses is based on an older copy that still @@ -4280,7 +4280,7 @@ turn into actual gradients (without influencing the sharpness of the artwork). (package/inherit bsnes-hd (name "libretro-bsnes-hd") (arguments - (substitute-keyword-arguments (package-arguments bsnes-hd) + (substitute-keyword-arguments arguments ((#:make-flags flags ''()) #~(cons "target=libretro" #$flags)) ((#:phases phases '%standard-phases) @@ -4508,7 +4508,7 @@ Advance.") (base32 "1sbhq614rvcm01ln7883ivdhni1mg1v4lyyvcwsy92i9wbh8qd9i")))) (arguments - (substitute-keyword-arguments (package-arguments jg-bsnes) + (substitute-keyword-arguments arguments ((#:make-flags flags) #~(cons* #$(string-append "GIT_VERSION=" version) (string-append "prefix=" #$output) @@ -4853,7 +4853,7 @@ and Atomiswave emulator derived from reicast.") (define-public libretro-flycast (package/inherit flycast (name "libretro-flycast") - (arguments (substitute-keyword-arguments (package-arguments flycast) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "-DLIBRETRO=ON" #$flags)))))) diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm index 4becd0bd49..81bcb034a5 100644 --- a/gnu/packages/engineering.scm +++ b/gnu/packages/engineering.scm @@ -2806,7 +2806,7 @@ models in the STL and OFF file formats.") "")))) (file-name (git-file-name name version)))) (arguments - (substitute-keyword-arguments (package-arguments openscad) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(begin (use-modules (srfi srfi-1)) diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index fc8693319f..5a9e86aa15 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -894,7 +894,7 @@ performance and other characteristics.") (inherit bcachefs-tools-minimal) (name "bcachefs-tools-minimal-static") (arguments - (substitute-keyword-arguments (package-arguments bcachefs-tools-minimal) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (add-after 'unpack 'patch-makefile @@ -2182,7 +2182,7 @@ memory-efficient.") #:configure-flags #~'("CFLAGS=-ffunction-sections -fdata-sections -Os -no-pie" "LDFLAGS=-static") - (substitute-keyword-arguments (package-arguments squashfuse) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'install 'install-private-headers diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm index 70cbf096f8..14d85248b2 100644 --- a/gnu/packages/finance.scm +++ b/gnu/packages/finance.scm @@ -236,7 +236,7 @@ line client and a client based on Qt.") (base32 "04kh88xklyq5w2x0zykfas6ssxajp1z33c2899fq342jnfr510b6")))) (arguments - (substitute-keyword-arguments (package-arguments bitcoin-core) + (substitute-keyword-arguments arguments ((#:qtbase original-flags #f) qtbase-5))) (native-inputs diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm index 74f6892735..da6f84d893 100644 --- a/gnu/packages/firmware.scm +++ b/gnu/packages/firmware.scm @@ -601,7 +601,7 @@ provide OpenFirmware functionality on top of an already running system.") (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ;; No need to cross-compile, package produces reproducible firmware. ((#:target _ #f) #f) ((#:phases phases) @@ -792,7 +792,7 @@ source." (cross-binutils "i686-linux-gnu"))))) (supported-systems %supported-systems) (arguments - (substitute-keyword-arguments (package-arguments seabios) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) `((ice-9 match) (ice-9 threads) @@ -1186,7 +1186,7 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.") (inherit base) (name "ovmf-x86-64") (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'install @@ -1226,7 +1226,7 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.") (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'install @@ -1248,7 +1248,7 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.") (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'install @@ -1269,7 +1269,7 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.") (inherit base) (name "ovmf-arm") (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'install @@ -1285,7 +1285,7 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.") (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'install @@ -1997,7 +1997,7 @@ or passthrough board.") (base32 "1skj7iq6dad48xhy2ljjmwpbhhdv3gk7cmi28lh3xfsnxphm4v8r")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'copy-lufa-source diff --git a/gnu/packages/flex.scm b/gnu/packages/flex.scm index 22c309ec23..17a7a7348a 100644 --- a/gnu/packages/flex.scm +++ b/gnu/packages/flex.scm @@ -51,7 +51,7 @@ (inherit bison) (arguments ;; Disable tests, since they require flex. - (substitute-keyword-arguments (package-arguments bison) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) (inputs (alist-delete "flex" (package-inputs bison)))))) `(("bison" ,bison-for-tests)))) diff --git a/gnu/packages/fluidplug.scm b/gnu/packages/fluidplug.scm index 6edbe20367..1c44699239 100644 --- a/gnu/packages/fluidplug.scm +++ b/gnu/packages/fluidplug.scm @@ -357,7 +357,7 @@ (inherit fluidplug-lv2) (name (fluidplug-plugin->package-name record)) (arguments - (substitute-keyword-arguments (package-arguments fluidplug-lv2) + (substitute-keyword-arguments arguments ((#:make-flags make-flags) #~(list (string-append "CC=" #$(cc-for-target)) (string-append "DESTDIR=" #$output) diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm index 741826f409..90c8119ab3 100644 --- a/gnu/packages/fontutils.scm +++ b/gnu/packages/fontutils.scm @@ -682,7 +682,7 @@ implementing the pen protocol for manipulating glyphs.") (package/inherit python-fontpens-bootstrap (name "python-fontpens") (arguments - (substitute-keyword-arguments (package-arguments python-fontpens-bootstrap) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #t) ((#:phases phases #~%standard-phases) @@ -1463,7 +1463,7 @@ high quality, anti-aliased and subpixel rendered text on a display.") (name "fontconfig") (outputs (cons "doc" (package-outputs fontconfig))) (arguments - (substitute-keyword-arguments (package-arguments fontconfig) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(delete "--disable-docs" #$configure-flags)) ((#:phases phases '%standard-phases) diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm index aa2a8d334f..512b034a26 100644 --- a/gnu/packages/freedesktop.scm +++ b/gnu/packages/freedesktop.scm @@ -228,7 +228,7 @@ application-centers for distributions.") (modify-inputs (package-inputs appstream) (prepend qtbase-5))) (arguments - (substitute-keyword-arguments (package-arguments appstream) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append '("-Dqt=true" "-Dqt-versions=5") #$flags)))))) @@ -242,7 +242,7 @@ application-centers for distributions.") (modify-inputs (package-inputs appstream) (prepend qtbase))) (arguments - (substitute-keyword-arguments (package-arguments appstream) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append '("-Dqt=true" "-Dqt-versions=6") #$flags)))))) @@ -696,7 +696,7 @@ other applications that need to directly deal with input devices.") (fold alist-delete (package-inputs libinput) '("cairo" "glib" "gtk+" "libwacom"))) (arguments - (substitute-keyword-arguments (package-arguments libinput) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) `(cons* "-Dlibwacom=false" "-Ddebug-gui=false" ;requires gtk+@3 diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 6a1dd5df1a..a621467cf7 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -834,7 +834,7 @@ fight or flee@dots{} (inherit boohu) (name "boohu-tk") (arguments - (substitute-keyword-arguments (package-arguments boohu) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f) ((#:build-flags _ #~()) #~(list "--tags=tk")) @@ -3488,7 +3488,7 @@ corruption… You hope luck will be on your side! (package/inherit shamogu (name "shamogu-sdl") (arguments - (substitute-keyword-arguments (package-arguments shamogu) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f) ((#:build-flags _ #'()) #~(list "--tags=sdl")) ((#:phases _ #~%standard-phases) @@ -5439,7 +5439,7 @@ next campaign.") (native-inputs (list pkg-config)) (arguments - (substitute-keyword-arguments (package-arguments wesnoth) + (substitute-keyword-arguments arguments ((#:configure-flags _) #~'("-DENABLE_SYSTEM_LUA=ON" "-DENABLE_GAME=OFF")))) (synopsis "Dedicated @emph{Battle for Wesnoth} server") @@ -5834,7 +5834,7 @@ Transport Tycoon Deluxe.") (inputs (modify-inputs (package-inputs openttd) (append zstd harfbuzz))) (arguments - (substitute-keyword-arguments (package-arguments openttd) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-before 'check 'build-tests @@ -11470,7 +11470,7 @@ player adaptability for character progression.") (package/inherit harmonist (name "harmonist-sdl") (arguments - (substitute-keyword-arguments (package-arguments harmonist) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f) ((#:build-flags _ #'()) #~(list "--tags=sdl")) ((#:phases _ #~%standard-phases) diff --git a/gnu/packages/gawk.scm b/gnu/packages/gawk.scm index 730af0761c..a4e9ad6172 100644 --- a/gnu/packages/gawk.scm +++ b/gnu/packages/gawk.scm @@ -249,7 +249,7 @@ programs can be captured and transferred to systems that have Awk but not (package/inherit cppawk (name "cppawk-egawk") (arguments - (substitute-keyword-arguments (package-arguments cppawk) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (replace 'fix-awk-paths diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm index 0a1a2b6ffc..63a2981c62 100644 --- a/gnu/packages/gcc.scm +++ b/gnu/packages/gcc.scm @@ -441,7 +441,7 @@ Go. It also includes runtime support libraries for these languages.") (package-arguments parent) ;; For native builds of some GCC versions the C++ include path needs to ;; be adjusted so it does not interfere with GCC's own build processes. - (substitute-keyword-arguments (package-arguments parent) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) `((srfi srfi-1) ,@modules)) @@ -498,10 +498,10 @@ Go. It also includes runtime support libraries for these languages.") (inherit gcc-base) (version (package-version this-package))))) (if (%current-target-system) - (substitute-keyword-arguments (package-arguments parent) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) `(cons "CXX=g++ -std=c++03" ,flags))) - (substitute-keyword-arguments (package-arguments parent) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) `((srfi srfi-1) ,@modules)) @@ -567,10 +567,10 @@ Go. It also includes runtime support libraries for these languages.") (inherit gcc-base) (version (package-version this-package))))) (if (%current-target-system) - (substitute-keyword-arguments (package-arguments parent) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) `(cons "CXX=g++ -std=c++11" ,flags))) - (substitute-keyword-arguments (package-arguments parent) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) `((srfi srfi-1) ,@modules)) @@ -650,7 +650,7 @@ Go. It also includes runtime support libraries for these languages.") (let ((parent (package (inherit gcc-base) (version (package-version this-package))))) - (substitute-keyword-arguments (package-arguments parent) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) `((srfi srfi-1) ,@modules)) @@ -1009,7 +1009,7 @@ It also includes runtime support libraries for these languages.") (modules '((guix build utils))) (snippet gcc-canadian-cross-objdump-snippet))) (arguments - (substitute-keyword-arguments (package-arguments gcc-11) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) (if (target-hurd?) #~(modify-phases #$phases @@ -1039,7 +1039,7 @@ It also includes runtime support libraries for these languages.") "gcc-5.0-libvtv-runpath.patch")) (modules '((guix build utils))) (snippet gcc-canadian-cross-objdump-snippet))) - (arguments (substitute-keyword-arguments (package-arguments gcc-13) + (arguments (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (add-before 'configure 'pre-x86-configure @@ -1073,7 +1073,7 @@ It also includes runtime support libraries for these languages.") (modules '((guix build utils))) (snippet gcc-canadian-cross-objdump-snippet))) (arguments - (substitute-keyword-arguments (package-arguments gcc-14) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (add-after 'install 'adjust-modules-file @@ -1369,7 +1369,7 @@ as the 'native-search-paths' field." (delete "lib" (package-outputs gcc)))) (native-search-paths search-paths) (arguments - (substitute-keyword-arguments (package-arguments gcc) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) `(,@modules (srfi srfi-1) @@ -1635,7 +1635,7 @@ also includes the druntime and phobos libraries." (outputs (delete "lib" (package-outputs gcc))) (properties (alist-delete 'hidden? (package-properties gcc))) (arguments - (substitute-keyword-arguments (package-arguments gcc) + (substitute-keyword-arguments arguments ((#:modules _ '()) '((guix build gnu-build-system) (guix build utils) @@ -1696,7 +1696,7 @@ misnomer."))) "This package is part of the GNU Compiler Collection and provides the GNU compiler for the Go programming language.") (arguments - (substitute-keyword-arguments (package-arguments gccgo) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases #$@(if (and (version>=? (package-version gccgo) "12.0") diff --git a/gnu/packages/gdb.scm b/gnu/packages/gdb.scm index 8221d868d3..709807888c 100644 --- a/gnu/packages/gdb.scm +++ b/gnu/packages/gdb.scm @@ -266,7 +266,7 @@ written in C, C++, Ada, Objective-C, Pascal and more.") (package/inherit gdb (name "gdb-multiarch") (arguments - (substitute-keyword-arguments (package-arguments gdb) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons* "--enable-targets=all" "--enable-multilib" @@ -292,7 +292,7 @@ written in C, C++, Ada, Objective-C, Pascal and more.") (package/inherit gdb-14 (name "avr-gdb") (arguments - (substitute-keyword-arguments (package-arguments gdb-14) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons* "--target=avr" "--disable-nls" @@ -380,7 +380,7 @@ AMD's commercially available GPU architectures.") (modify-inputs (package-native-inputs gdb) (prepend bison flex perl))) (arguments - (substitute-keyword-arguments (package-arguments gdb) + (substitute-keyword-arguments arguments ((#:configure-flags _ '()) ''("--program-prefix=roc" "--disable-binutils" diff --git a/gnu/packages/geo.scm b/gnu/packages/geo.scm index d3789b0fdf..43fdcf8a34 100644 --- a/gnu/packages/geo.scm +++ b/gnu/packages/geo.scm @@ -934,7 +934,7 @@ hydrology and waste deposition.") (native-inputs (modify-inputs (package-native-inputs ogs-serial) (prepend pkg-config))) (arguments - (substitute-keyword-arguments (package-arguments ogs-serial) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "-DOGS_USE_PETSC=ON" "-DCMAKE_C_COMPILER=mpicc" "-DCMAKE_CXX_COMPILER=mpic++" diff --git a/gnu/packages/gettext.scm b/gnu/packages/gettext.scm index 6b71704481..039f736b0d 100644 --- a/gnu/packages/gettext.scm +++ b/gnu/packages/gettext.scm @@ -163,7 +163,7 @@ translated messages from the catalogs. Nearly all GNU packages use Gettext.") "04kbg1sx0ncfrsbr85ggjslqkzzb243fcw9nyh3rrv1a22ihszf7")) (patches (search-patches "gettext-libunicode-update.patch")))) (arguments - (substitute-keyword-arguments (package-arguments gettext-minimal) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'touch-test @@ -187,7 +187,7 @@ translated messages from the catalogs. Nearly all GNU packages use Gettext.") (package/inherit gettext-minimal (name "gettext") (arguments - (substitute-keyword-arguments (package-arguments gettext-minimal) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'install 'add-emacs-autoloads @@ -352,6 +352,6 @@ areas where they were not expected like documentation.") (modify-inputs (package-native-inputs po4a) (delete "docbook-xml" "perl-test-pod" "texlive-local-tree"))) (arguments - (substitute-keyword-arguments (package-arguments po4a) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f))) (properties '((hidden? . #t))))) diff --git a/gnu/packages/gl.scm b/gnu/packages/gl.scm index 396d2693b7..f8f34599cb 100644 --- a/gnu/packages/gl.scm +++ b/gnu/packages/gl.scm @@ -309,7 +309,7 @@ also known as DXTn or DXTC) for Mesa.") (arguments (strip-keyword-arguments '(#:make-flags) - (substitute-keyword-arguments (package-arguments libva) + (substitute-keyword-arguments arguments ((#:configure-flags flags) '(list "--disable-glx")))))))) @@ -657,7 +657,7 @@ from software emulation to complete hardware acceleration for modern GPUs.") (source (origin (inherit (package-source mesa)))) (arguments - (substitute-keyword-arguments (package-arguments mesa) + (substitute-keyword-arguments arguments ((#:modules modules) (cons '(ice-9 textual-ports) modules)) ((#:configure-flags flags) @@ -1093,7 +1093,7 @@ and surfaces, receiving input and events.") ;; When building out of source, the install phase fails with: ;; file INSTALL cannot find "/tmp/guix-build-glfw-3.4.drv-0/build/docs/html": ;; No such file or directory - (arguments (substitute-keyword-arguments (package-arguments glfw) + (arguments (substitute-keyword-arguments arguments ((#:out-of-source? _ #f) #f))))) (define-public nanovg diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm index eff1c52ddd..2319e35bfb 100644 --- a/gnu/packages/glib.scm +++ b/gnu/packages/glib.scm @@ -204,7 +204,7 @@ shared NFS home directories.") (package/inherit dbus (name "dbus-for-jami") (arguments - (substitute-keyword-arguments (package-arguments dbus) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'customize-config @@ -234,7 +234,7 @@ shared NFS home directories.") (define-public dbus-verbose (package/inherit dbus (name "dbus-verbose") - (arguments (substitute-keyword-arguments (package-arguments dbus) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons "-Dverbose_mode=true" #$flags)))) (synopsis "D-Bus with verbose mode enabled for debugging") @@ -450,7 +450,7 @@ functions for strings and common data structures.") (modify-inputs (package-native-inputs base) (prepend gobject-introspection-minimal))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases ;; GI tests require installed libraries @@ -469,7 +469,7 @@ functions for strings and common data structures.") (modify-inputs (package-native-inputs base) (append gi-docgen python-docutils))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons "-Ddocumentation=true" (delete "-Dman-pages=disabled" #$flags))) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index de02add65f..7b0d87ca24 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -409,7 +409,7 @@ services.") (name "libcloudproviders") (outputs (cons "doc" (package-outputs libcloudproviders-minimal))) (arguments - (substitute-keyword-arguments (package-arguments libcloudproviders-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags _) '(list "-Denable-gtk-doc=true")) ;false by default ((#:phases phases '%standard-phases) @@ -2353,7 +2353,7 @@ GNOME Desktop.") (base32 "1dqsgrb62fgmy4w63bjl3b525nil4idrrdcscia1h3isaly0zlds")))) (arguments - (substitute-keyword-arguments (package-arguments gcr) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'skip-gtk-update-icon-cache @@ -2409,7 +2409,7 @@ GNOME Desktop.") (package/inherit gdl (name "gdl-minimal") (arguments - (substitute-keyword-arguments (package-arguments gdl) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (add-after 'unpack 'disable-doc-generation @@ -3073,7 +3073,7 @@ API.") (base32 "1jcyfs912h29xpnj3fd2mk7pr1mljs61vhdpypphj88xfrlrv6hy")))) (arguments - (substitute-keyword-arguments (package-arguments libpeas) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~(list)) #~(cons* "-Dlua51=false" #$flags)))) (inputs @@ -3260,7 +3260,7 @@ compiles to GTKBuilder XML.") (base32 "0hj7f4xhwjc4x32r3lswwclbw37fw3spy806g4plkmym25hz4ydy")))) (arguments - (substitute-keyword-arguments (package-arguments blueprint-compiler) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'fix-tests))))))) @@ -4442,7 +4442,7 @@ targeting the GNOME stack simple.") "0xvhg32sxnfyvxn86hh9mn65mh1g189vhsjcahccj0zbwnrkqz3w")) (patches (search-patches "vala-0.52-fix-valagirparser.patch")))) (arguments - (substitute-keyword-arguments (package-arguments vala) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* (string-append "CFLAGS=-g -O2" @@ -4493,7 +4493,7 @@ editors, IDEs, etc.") (define-public vte/gtk+-3 (package/inherit vte (name "vte-with-gtk+3") - (arguments (substitute-keyword-arguments (package-arguments vte) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons "-Dgtk4=false" (delete "-Dgtk3=false" #$flags))))) (propagated-inputs (modify-inputs (package-propagated-inputs vte) @@ -4514,7 +4514,7 @@ editors, IDEs, etc.") (file-name (git-file-name name version)) (sha256 (base32 "0fv6lx7kk1xrfsvc95jm23vxkmyfypriz4nvj0kjy4nshgccwlch")))) - (arguments (substitute-keyword-arguments (package-arguments vte) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append (list "-Dsixel=true") #$flags)))) (inputs (modify-inputs (package-inputs vte) @@ -4668,7 +4668,7 @@ GLib and GObject, and integrates JSON with GLib data types.") (name "json-glib") (outputs (cons "doc" (package-outputs json-glib-minimal))) (arguments - (substitute-keyword-arguments (package-arguments json-glib-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags _) #~(list "-Dman=true" #$@(if (%current-target-system) @@ -4976,7 +4976,7 @@ and the GLib main loop, to integrate well with GNOME applications.") (base32 "04rgv6hkyhgi7lak9865yxgbgky6gc635p7w6nhcbj64rx0prdz4")))) (arguments - (substitute-keyword-arguments (package-arguments libsoup-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) ;; The option name changed between libsoup 2 and libsoup 3. #~(cons "-Dgtk_doc=false" @@ -4998,7 +4998,7 @@ and the GLib main loop, to integrate well with GNOME applications.") (name "libsoup") (outputs (cons "doc" (package-outputs libsoup-minimal))) (arguments - (substitute-keyword-arguments (package-arguments libsoup-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(cons "-Ddocs=enabled" ;; The default value is 'auto', meaning it could be skipped. @@ -5523,7 +5523,7 @@ output devices.") (sha256 (base32 "0vwfx06k1in8hci3kdxpc3c0bh81f1vl5bp7favd3rdz4wd661vl")))) (arguments - (substitute-keyword-arguments (package-arguments colord-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(begin (use-modules (srfi srfi-1)) @@ -7181,7 +7181,7 @@ USB transfers with your high-level application or system daemon.") (package/inherit gusb-minimal (name "gusb") (arguments - (substitute-keyword-arguments (package-arguments gusb-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags flags) `(cons "-Ddocs=true" (delete "-Ddocs=false" ,flags))))) @@ -12207,7 +12207,7 @@ for usage on small and big screens.") (sha256 (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5")))) (arguments - (substitute-keyword-arguments (package-arguments libhandy) + (substitute-keyword-arguments arguments ((#:configure-flags flags) '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true")))))) diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm index 4a05e9ced1..57e07f7799 100644 --- a/gnu/packages/gnuzilla.scm +++ b/gnu/packages/gnuzilla.scm @@ -309,7 +309,7 @@ in C/C++.") (base32 "1a3h7p7126pxzpidb1lqckvhfh1had805mai4l96mnc878phbx61")))) (arguments - (substitute-keyword-arguments (package-arguments mozjs) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-rust-simd" #$flags)) ((#:phases phases) @@ -387,7 +387,7 @@ fractional-second-digits-append-item.js") (base32 "0xvwk3vkbxnybpi3gwk48nxffg44lbv58mbk2xq6cz50ffq0k5k2")))) (arguments - (substitute-keyword-arguments (package-arguments mozjs) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-rust-simd" #$flags)) ((#:phases phases) diff --git a/gnu/packages/gpodder.scm b/gnu/packages/gpodder.scm index f5b5649622..b49f0d75b4 100644 --- a/gnu/packages/gpodder.scm +++ b/gnu/packages/gpodder.scm @@ -160,7 +160,7 @@ and track podcasts.") (modify-inputs (package-inputs libmygpo-qt) (replace "qtbase" qtbase-5))) (arguments - (substitute-keyword-arguments (package-arguments libmygpo-qt) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "-DBUILD_WITH_QT6=ON" #$flags)))))) diff --git a/gnu/packages/graph.scm b/gnu/packages/graph.scm index be5fe287c8..6a3996a46d 100644 --- a/gnu/packages/graph.scm +++ b/gnu/packages/graph.scm @@ -591,7 +591,7 @@ contains supporting code for evaluation and parameter tuning.") (sha256 (base32 "0m0hyqn9db0xdbvan0lin7xf11dl4xdpjwwpagw01hl4z72w3al0")))) (arguments - (substitute-keyword-arguments (package-arguments faiss) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) ;; Add -fpermissive to suppress errors about non-conforming code. #~(cons "-DCMAKE_CXX_FLAGS=-fpermissive" diff --git a/gnu/packages/graphics.scm b/gnu/packages/graphics.scm index de7716c40c..39711d3d96 100644 --- a/gnu/packages/graphics.scm +++ b/gnu/packages/graphics.scm @@ -1843,7 +1843,7 @@ in Julia).") (base32 "0l7gqxxz7rmdqrv65r6ki7avg636d7s6bfq7h1213gjr1dz8hiij")))) (arguments - (substitute-keyword-arguments (package-arguments openscenegraph) + (substitute-keyword-arguments arguments ((#:configure-flags flags) ;; As per the above wiki link, the following plugins are enough: #~(append @@ -2619,7 +2619,7 @@ It supports: (base32 "15mbqz7kg23xgy46ijm8p5wnj4q8xipyr7ckwz8kpa5v3lxssyf3")))) (arguments - (substitute-keyword-arguments (package-arguments skia) + (substitute-keyword-arguments arguments ;; gn/find_headers.py fails to decode some JSON, probably because of ;; a warning. ((#:tests? _ #false) #false) diff --git a/gnu/packages/groff.scm b/gnu/packages/groff.scm index c06381df6a..c32bff0957 100644 --- a/gnu/packages/groff.scm +++ b/gnu/packages/groff.scm @@ -147,7 +147,7 @@ is usually the formatter of \"man\" documentation pages.") #:configure-flags '("--with-doc=no") - ,@(substitute-keyword-arguments (package-arguments groff) + ,@(substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-after 'install 'remove-non-essential-programs diff --git a/gnu/packages/groovy.scm b/gnu/packages/groovy.scm index 94b2fef833..3e8eae44ae 100644 --- a/gnu/packages/groovy.scm +++ b/gnu/packages/groovy.scm @@ -303,7 +303,7 @@ other groovy submodules."))) (name "groovy-parser-antlr4") (arguments `(#:tests? #f - ,@(substitute-keyword-arguments (package-arguments base) + ,@(substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'build 'generate-parser @@ -360,7 +360,7 @@ other groovy submodules.")))) (inherit base) (arguments `(#:tests? #f;Requires spock-framework which is a circular dependency - ,@(substitute-keyword-arguments (package-arguments base) + ,@(substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases ;; These annotations are used for QA, but do not affect build output. @@ -413,7 +413,7 @@ similar to javadoc.")))) (arguments `(;#:tests? #f;Requires spock-framework which is a circular dependency #:ant ,ant/java8; ant is actually a dependency of this package, and we need 1.10 - ,@(substitute-keyword-arguments (package-arguments base) + ,@(substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases ;; These annotations are used for QA, but do not affect build output. @@ -445,7 +445,7 @@ similar to javadoc.")))) (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'copy-resources) @@ -529,7 +529,7 @@ arguments in Groovy using the picocli library.")))) (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'check 'fix-test @@ -553,7 +553,7 @@ library used to build graphical interfaces.")))) (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'check 'build-swing @@ -744,7 +744,7 @@ tests in Groovy.")))) (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'copy-resources) diff --git a/gnu/packages/gstreamer.scm b/gnu/packages/gstreamer.scm index 3023daaff2..b20a1a0e05 100644 --- a/gnu/packages/gstreamer.scm +++ b/gnu/packages/gstreamer.scm @@ -1082,7 +1082,7 @@ non-linear editors.") given, also pass them to the build system instead of the ones used by PKG." (package/inherit pkg (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append (list diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm index 781e43d9dd..9eea8b4919 100644 --- a/gnu/packages/gtk.scm +++ b/gnu/packages/gtk.scm @@ -251,7 +251,7 @@ output. Experimental backends include OpenGL, BeOS, OS/2, and DirectFB.") (modify-inputs (package-native-inputs cairo) (prepend gtk-doc/stable))) (arguments - (substitute-keyword-arguments (package-arguments cairo) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons "-Dgtk_doc=true" #$flags)) ((#:phases phases '%standard-phases) @@ -278,7 +278,7 @@ output. Experimental backends include OpenGL, BeOS, OS/2, and DirectFB.") `(("mesa" ,mesa) ,@(package-inputs cairo))) (arguments - (substitute-keyword-arguments (package-arguments cairo) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons "-Dxlib-xcb=enabled" #$flags)))) (synopsis "2D graphics library (with X11 support)"))) @@ -642,7 +642,7 @@ highlighting and other features typical of a source code editor.") (list #:configure-flags #~(list "CFLAGS=-g -O2 -Wno-error=incompatible-pointer-types")) - (substitute-keyword-arguments (package-arguments gtksourceview) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'disable-gtk-update-icon-cache)))))))) @@ -855,7 +855,7 @@ is part of the GNOME accessibility project.") (package/inherit at-spi2-core (outputs (cons "doc" (package-outputs at-spi2-core))) (arguments - (substitute-keyword-arguments (package-arguments at-spi2-core) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons #$(if (%current-target-system) "-Ddocs=false" @@ -1503,7 +1503,7 @@ exceptions, macros, and a dynamic programming environment.") (base32 "0dslfldzgxis8g0g3xaffcqnd1njzz23fjy0v3lc0r2694ra4ny4")))) (arguments - (substitute-keyword-arguments (package-arguments guile-cairo) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases ;; To allow running the check phase before install, add two phases diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index f9f43a27a2..a66d49e89d 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -1851,7 +1851,7 @@ types are supported.") (name "guile2.2-pfds") (native-inputs (list guile-2.2)) (arguments - (substitute-keyword-arguments (package-arguments guile-pfds) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'work-around-guile-bug) @@ -2250,7 +2250,7 @@ format.") (inputs (modify-inputs (package-inputs guile-email) (replace "guile" guile-2.2))) (arguments - (substitute-keyword-arguments (package-arguments guile-email) + (substitute-keyword-arguments arguments ((#:make-flags make-flags '()) #~(cons "guile_effective_version=2.2" #$make-flags)))))) @@ -2591,7 +2591,7 @@ It currently supports MySQL, Postgres and SQLite3.") (inherit guile-dbi) (name "guile-dbd-sqlite3") (arguments - (substitute-keyword-arguments (package-arguments guile-dbi) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (replace 'chdir @@ -2616,7 +2616,7 @@ SQL databases. This package implements the interface for SQLite."))) (inherit guile-dbi) (name "guile-dbd-postgresql") (arguments - (substitute-keyword-arguments (package-arguments guile-dbi) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (replace 'chdir @@ -2646,7 +2646,7 @@ PostgreSQL."))) (inherit guile-dbi) (name "guile-dbd-mysql") (arguments - (substitute-keyword-arguments (package-arguments guile-dbi) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (replace 'chdir @@ -4155,7 +4155,7 @@ inspired by the SCSH regular expression system.") (inherit guile-irregex) (name "guile2.0-irregex") (arguments - (substitute-keyword-arguments (package-arguments guile-irregex) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases ;; For some reason guile 2.0 cannot load foo.scm using diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index a31d8e5025..77cc2f9b53 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -687,7 +687,7 @@ GNU@tie{}Guile. Use the @code{(ice-9 readline)} module and call its (base32 "0xfnd99iws9dwk5va8bmqpysmb8pnb1w91rw7rbfzzklyfvpibh6")))) (arguments - (substitute-keyword-arguments (package-arguments guile-next) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* #$(string-append diff --git a/gnu/packages/haskell.scm b/gnu/packages/haskell.scm index 32b6fe9a05..4aa17d1718 100644 --- a/gnu/packages/haskell.scm +++ b/gnu/packages/haskell.scm @@ -1563,7 +1563,7 @@ interactive environment for the functional language Haskell.") (patches (search-patches "ghc-9.2-cabal-support-package-path.patch" "ghc-9-StgCRunAsm-only-when-needed.patch")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases ;; File Common.hs has been moved to src/ in this release. @@ -1706,7 +1706,7 @@ SRC_HC_OPTS += -optc-mno-outline-atomics "1qk7rlqf02s3b6m6sqqngmjq1mxnrz88h159lz6k25gddmdg5kp8")) (patches (search-patches "ghc-9-StgCRunAsm-only-when-needed.patch")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases ;; Files don’t exist any more. diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm index 35d13c80aa..44908653c8 100644 --- a/gnu/packages/hurd.scm +++ b/gnu/packages/hurd.scm @@ -201,7 +201,7 @@ Library and other user programs.") (name "hurd-minimal") (inputs (list glibc/hurd-headers gnumach-headers)) (arguments - (substitute-keyword-arguments (package-arguments hurd-headers) + (substitute-keyword-arguments arguments ((#:make-flags flags '()) #~'(#$(string-append "lib-subdirs=libshouldbeinlibc libihash libstore") "prog-subdirs=" @@ -224,7 +224,7 @@ Library, Parted and netdde for GNU/Hurd.") (package (inherit hurd-headers) (name "libirqhelp") (arguments - (substitute-keyword-arguments (package-arguments hurd-headers) + (substitute-keyword-arguments arguments ((#:make-flags flags '()) #~'(#$(string-append "lib-subdirs=libirqhelp") "prog-subdirs=" @@ -277,7 +277,7 @@ Hurd-minimal package which are needed for both glibc and GCC.") (inherit gnumach-headers) (name "gnumach") (arguments - (substitute-keyword-arguments (package-arguments gnumach-headers) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) `(cons* "--enable-kdb" ;enable kernel debugger "--disable-net-group" diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm index 2e0d4a8744..78ade07cb9 100644 --- a/gnu/packages/ibus.scm +++ b/gnu/packages/ibus.scm @@ -236,7 +236,7 @@ may also simplify input method development.") (define-public ibus (package/inherit ibus-minimal (arguments - (substitute-keyword-arguments (package-arguments ibus-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--enable-python-library" (delete "--disable-gtk4" #$flags))) diff --git a/gnu/packages/icu4c.scm b/gnu/packages/icu4c.scm index dc040d02ad..68a7421b51 100644 --- a/gnu/packages/icu4c.scm +++ b/gnu/packages/icu4c.scm @@ -209,7 +209,7 @@ C/C++ part.") (inherit icu4c) (name "icu4c-build-root") (arguments - (substitute-keyword-arguments (package-arguments icu4c) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f) ((#:out-of-source? _ #t) diff --git a/gnu/packages/image-processing.scm b/gnu/packages/image-processing.scm index fb5cad2a7b..c00a287c15 100644 --- a/gnu/packages/image-processing.scm +++ b/gnu/packages/image-processing.scm @@ -973,7 +973,7 @@ including 2D color images.") (inherit gmic) (name "gmic-qt") (arguments - (substitute-keyword-arguments (package-arguments gmic) + (substitute-keyword-arguments arguments ((#:configure-flags _) #~(list "-DGMIC_QT_HOST=none" "-DENABLE_DYNAMIC_LINKING=ON")) @@ -998,7 +998,7 @@ including 2D color images.") (modify-inputs (package-inputs gmic-qt) (prepend gexiv2 gdk-pixbuf gegl gimp pango))) (arguments - (substitute-keyword-arguments (package-arguments gmic-qt) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(list "-DGMIC_QT_HOST=gimp3" "-DENABLE_DYNAMIC_LINKING=ON")))) @@ -1370,7 +1370,7 @@ libraries designed for computer vision research and implementation.") (("add_subdirectory\\((tiff|png|jpeg|zlib|bzlib|geotiff)\\)") "")))))) (arguments - (substitute-keyword-arguments (package-arguments vxl) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* ;; Needed for itk-snap "-DVNL_CONFIG_LEGACY_METHODS=ON" diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm index 06ad9be911..b82e2b33e9 100644 --- a/gnu/packages/image.scm +++ b/gnu/packages/image.scm @@ -1715,7 +1715,7 @@ and XMP metadata of images in various formats.") (package (inherit exiv2) (arguments - (substitute-keyword-arguments (package-arguments exiv2) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'delete-static-libraries))))))) diff --git a/gnu/packages/instrumentation.scm b/gnu/packages/instrumentation.scm index 31b1497a07..9e4003d8f9 100644 --- a/gnu/packages/instrumentation.scm +++ b/gnu/packages/instrumentation.scm @@ -150,7 +150,7 @@ bindings, and the command-line tool @command{babeltrace2}.") (name "babeltrace-dev") (synopsis "Trace manipulation toolkit (variant for plugin developers)") (arguments - (substitute-keyword-arguments (package-arguments babeltrace) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'configure 'set-environment-variables diff --git a/gnu/packages/java-bootstrap.scm b/gnu/packages/java-bootstrap.scm index 32f993496d..426df8bcf2 100644 --- a/gnu/packages/java-bootstrap.scm +++ b/gnu/packages/java-bootstrap.scm @@ -612,7 +612,7 @@ machine."))) '(delete-file "src/classlib/gnuclasspath/lib/classes.zip")))) (build-system gnu-build-system) (arguments - (substitute-keyword-arguments (package-arguments jamvm-1-bootstrap) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) (append '((srfi srfi-1) (srfi srfi-26)) diff --git a/gnu/packages/julia-xyz.scm b/gnu/packages/julia-xyz.scm index 79bb4fac48..e73f6e2924 100644 --- a/gnu/packages/julia-xyz.scm +++ b/gnu/packages/julia-xyz.scm @@ -1997,7 +1997,7 @@ valuable enough at this time.") (inherit julia-documenter) (name "julia-documenter-bootstrap") (arguments - (substitute-keyword-arguments (package-arguments julia-documenter) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'patch-source))) diff --git a/gnu/packages/julia.scm b/gnu/packages/julia.scm index 384056c1b5..20ce152286 100644 --- a/gnu/packages/julia.scm +++ b/gnu/packages/julia.scm @@ -82,7 +82,7 @@ (julia-patch "libunwind-cfa-rsp" "0qs5b1h5lsr5qakkv6sddgy5ghlxpjrn2jiqcvg7bkczy24klr6j"))))) (arguments - (substitute-keyword-arguments (package-arguments libunwind) + (substitute-keyword-arguments arguments ;; Skip tests on this older and patched version of libunwind. ((#:tests? _ #t) #f))) (home-page "https://github.com/JuliaLang/julia/tree/master/deps/"))) diff --git a/gnu/packages/jupyter.scm b/gnu/packages/jupyter.scm index 9879e4b7b4..0f800d14bb 100644 --- a/gnu/packages/jupyter.scm +++ b/gnu/packages/jupyter.scm @@ -591,7 +591,7 @@ installing @code{kernelspec}s for use with Jupyter frontends.") (package/inherit python-jupyter-client (name "python-jupyter-client-bootstrap") (arguments - (substitute-keyword-arguments (package-arguments python-jupyter-client) + (substitute-keyword-arguments arguments ((#:tests? _) #f))) (native-inputs (list python-hatchling))))) diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm index af6b9a9f9f..484fd84215 100644 --- a/gnu/packages/kde-frameworks.scm +++ b/gnu/packages/kde-frameworks.scm @@ -1026,7 +1026,7 @@ as well as an API to create KDED modules.") (patches '()))) (inputs (modify-inputs (package-inputs kdbusaddons-5) (delete "kinit"))) (arguments - (substitute-keyword-arguments (package-arguments kdbusaddons-5) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'patch-source))))))) @@ -4146,7 +4146,7 @@ widgets with a user-interface defined in terms of actions.") (base32 "0czrlqh5cxnj1mlbz839c7hifhnpzl476d92lv4hxji50wnjlfqr")))) (arguments - (substitute-keyword-arguments (package-arguments kparts) + (substitute-keyword-arguments arguments ((#:qtbase _ #f) qtbase-5))) (propagated-inputs (list kio-5 ktextwidgets-5 kxmlgui-5)) diff --git a/gnu/packages/kodi.scm b/gnu/packages/kodi.scm index b5f9e959bc..7860cff9e1 100644 --- a/gnu/packages/kodi.scm +++ b/gnu/packages/kodi.scm @@ -509,7 +509,7 @@ plug-in system.") (inherit kodi) (name "kodi-wayland") (arguments - (substitute-keyword-arguments (package-arguments kodi) + (substitute-keyword-arguments arguments ((#:configure-flags flags) `(cons "-DCORE_PLATFORM_NAME=wayland" (delete "-DCORE_PLATFORM_NAME=x11" ,flags))))) diff --git a/gnu/packages/libffi.scm b/gnu/packages/libffi.scm index 54489d36da..b3f94d3fc4 100644 --- a/gnu/packages/libffi.scm +++ b/gnu/packages/libffi.scm @@ -93,7 +93,7 @@ conversions for values passed between the two languages.") (hidden-package (package/inherit libffi (arguments - (substitute-keyword-arguments (package-arguments libffi) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append #$flags '("--disable-exec-static-tramp")))))))) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 5310d1bd9b..73d1ce13d1 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -2099,7 +2099,7 @@ dtb-$(CONFIG_ARCH_ROCKCHIP) += rk3588-mnt-pocket-reform.dtb"))))))))))) (description (string-append (package-description base) " Configuration options and patches have been applied for use with MNT/Reform systems.")) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'apply-reform-patches @@ -2434,7 +2434,7 @@ dtb-$(CONFIG_ARCH_ROCKCHIP) += rk3588-mnt-pocket-reform.dtb"))))))))))) (description (string-append (package-description base) " Configuration options and patches have been applied for use with MNT/Reform systems.")) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'apply-reform-patches @@ -4124,7 +4124,7 @@ module.") (package (inherit e2fsprogs) (arguments ;; Do not build shared libraries. - (substitute-keyword-arguments (package-arguments e2fsprogs) + (substitute-keyword-arguments arguments ((#:configure-flags _) '(list "--disable-blkid" "--disable-fuse2fs")) ((#:make-flags _) @@ -5368,7 +5368,7 @@ user-space processes.") (sha256 (base32 "11yfl2w2a445hllyzlakq97n32g06972vxpmh7lpbclnj9fhb5zp")))) (arguments - (substitute-keyword-arguments (package-arguments fuse) + (substitute-keyword-arguments arguments ((#:configure-flags original-flags #~(list)) #~(append #$original-flags '("--default-library=static"))))))) @@ -5430,7 +5430,7 @@ UnionFS-FUSE additionally supports copy-on-write.") (("mtab_needs_update[[:blank:]]*\\([a-z_]+\\)") "0") (("/bin/") "")))))) (arguments - (substitute-keyword-arguments (package-arguments fuse) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons "-Ddefault_library=static" #$flags)))))) @@ -5451,7 +5451,7 @@ UnionFS-FUSE additionally supports copy-on-write.") (string-append "target_link_libraries" libs " dl)"))))))) (arguments - (substitute-keyword-arguments (package-arguments unionfs-fuse) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons "-DCMAKE_EXE_LINKER_FLAGS=-static" #$flags)) ((#:phases phases #~%standard-phases) @@ -5663,7 +5663,7 @@ for systems using the Linux kernel. This includes commands such as (inherit kbd) (name "loadkeys-static") (arguments - (substitute-keyword-arguments (package-arguments kbd) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) `(append '("LDFLAGS=-static" "--disable-shared" "--disable-nls" "--disable-vlock" ;so we don't need libpam @@ -6154,7 +6154,7 @@ mapper. Kernel components are part of Linux-libre.") ("udev:static" ,eudev "static"))) (arguments - (substitute-keyword-arguments (package-arguments lvm2) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) ;; LVM2 doesn't use Libtool, hence the custom option. `(append '("--enable-static_link") @@ -6573,7 +6573,7 @@ SMBus access.") (sha256 (base32 "0hd4c1w8lnwc3j95h3vpd125170l1d4myspyrlpamqx6wbr6jpnv")))) (arguments - (substitute-keyword-arguments (package-arguments i2c-tools) + (substitute-keyword-arguments arguments ((#:make-flags _) #~(list (string-append "prefix=" #$output) (string-append "CC=" #$(cc-for-target)))))))) @@ -7255,7 +7255,7 @@ arrays when needed.") (inherit mdadm) (name "mdadm-static") (arguments - (substitute-keyword-arguments (package-arguments mdadm) + (substitute-keyword-arguments arguments ((#:make-flags flags) #~(cons* "LDFLAGS = -static" "CXFLAGS = -DNO_LIBUDEV" @@ -8385,7 +8385,7 @@ The package provides additional NTFS tools.") (inherit ntfs-3g) (name "ntfs-3g-static") (arguments - (substitute-keyword-arguments (package-arguments ntfs-3g) + (substitute-keyword-arguments arguments ((#:configure-flags flags) `(append ,flags (list "--enable-really-static" @@ -10256,7 +10256,7 @@ available in the kernel Linux.") "Unprivileged chroot, bind mount, and binfmt_misc (statically linked)") (inputs `(("talloc" ,talloc/static))) (arguments - (substitute-keyword-arguments (package-arguments proot) + (substitute-keyword-arguments arguments ((#:make-flags flags) `(cons "LDFLAGS = -ltalloc -static -static-libgcc" ,flags)) ((#:phases phases) @@ -11101,7 +11101,7 @@ file systems.") (base32 "13xkn9jpmwp4fm9r68vhgznkmxhnv83n2b39mhy2qdaph90w2a1l")))) (arguments - (substitute-keyword-arguments (package-arguments xfsprogs) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags '()) `(cons "--enable-gettext=no" ,configure-flags)))) @@ -11115,7 +11115,7 @@ file systems.") (name "xfsprogs-static") (outputs (list "out")) (arguments - (substitute-keyword-arguments (package-arguments xfsprogs) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags '()) `(append ,configure-flags (list "--enable-static"))) @@ -11618,7 +11618,7 @@ tools for managing PipeWire.") (inherit base) (name "wireplumber-minimal") (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons "-Delogind=disabled" #$flags)))) (inputs @@ -12648,7 +12648,7 @@ work properly.") firejail (name "firejail-disable-sandbox-check") (arguments - (substitute-keyword-arguments (package-arguments firejail) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append #$flags (list "--disable-sandbox-check"))))) diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index 92fad7b5fc..8f71775d12 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -1076,7 +1076,7 @@ portable between implementations.") (inherit pkg) (outputs '("out")) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'build-doc)))))))) @@ -1087,7 +1087,7 @@ portable between implementations.") (inherit pkg) (outputs '("out")) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'build-doc)))))))) @@ -1314,7 +1314,7 @@ computer known.") (package (inherit pkg) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-after 'unpack 'fix-readtable @@ -4170,7 +4170,7 @@ and a core image.") (inherit pkg) (outputs '("out")) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'build-image)))))))) @@ -9144,7 +9144,7 @@ pure Common Lisp.") (package (inherit pkg) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ;; Tests are failing on ECL with: ;; PCG.TEST::TEST-REWINDAn error occurred during initialization: ;; 40502229875678917802724098623316930025 is not of type @@ -9922,7 +9922,7 @@ Redis data structure store.") (package (inherit pkg) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ;; Tests are failing on ECL with: ;; Test L-COMMANDS: An error occurred during initialization: ;; Protocol not found: "tcp". @@ -10041,7 +10041,7 @@ versioning specification: @url{http://semver.org}.") (package (inherit pkg) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ;; TODO: https://github.com/cldm/cl-semver/issues/9 ((#:tests? _ #f) #f)))))) @@ -10351,7 +10351,7 @@ Development into CL+SSL was done by David Lichteblau.") (modify-inputs (package-native-inputs pkg) (delete "sbcl-trivial-sockets"))) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f)))))) (define-public sbcl-cl-steamworks @@ -11040,7 +11040,7 @@ Common Lisp objects while constructing bindings for placeholders (package (inherit pkg) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ;; The tests fail on ECL with: ;; "In MAKE-ARRAY: the elements in :INITIAL-CONTENTS do not match ;; the array dimensions." @@ -12629,7 +12629,7 @@ interfaces as well as a functional and an object oriented interface.") (inputs (alist-delete "uffi" (package-inputs pkg))) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ((#:asd-systems asd-systems '()) `(cons "clsql-cffi" ,asd-systems))))))) @@ -13248,7 +13248,7 @@ interface is meant to be easy and non-intrusive.") (package (inherit pkg) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ;; The tests only work on SBCL. ((#:tests? _ #f) #f)))))) @@ -18620,7 +18620,7 @@ type correctness in Common Lisp. It is based on CLtL2 extensions.") (package (inherit pkg) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ;; The tests fail on ECL with a COMPILE-FILE-ERROR for t/package.lisp. ((#:tests? _ #f) #f)))))) @@ -22852,7 +22852,7 @@ specification}, a toolkit for writing GUIs in Common Lisp.") (package (inherit pkg) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ;; Tests fail with "FUNCTION: Not a valid argument (R1 ;; (GENERATE-REGION))." on ECL. ((#:tests? _ #f) #f)))))) @@ -23701,7 +23701,7 @@ library for Ruby, which is itself based on the Lucene library for Java.") (package (inherit pkg) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ;; Tests fail with "Pathname without a physical namestring" error ;; on ECL. ((#:tests? _ #f) #f)))))) @@ -30036,7 +30036,7 @@ multiple inspectors with independent history.") (inherit pkg) (outputs '("out")) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'build-image)))))))) @@ -30047,7 +30047,7 @@ multiple inspectors with independent history.") (inherit pkg) (outputs '("out")) (arguments - (substitute-keyword-arguments (package-arguments pkg) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'build-image)))))))) @@ -31758,7 +31758,7 @@ roman numeral given in the key.") (inherit ecl-package) (outputs '("out")) (arguments - (substitute-keyword-arguments (package-arguments ecl-package) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'build-binary)))))))) diff --git a/gnu/packages/llvm.scm b/gnu/packages/llvm.scm index c893e84e79..a0447fcc8f 100644 --- a/gnu/packages/llvm.scm +++ b/gnu/packages/llvm.scm @@ -882,7 +882,7 @@ Library.") "07zby3gwy5c8jssabrhjk3nsxlwipnm6sk4dsvck1l5d0br1ywsg")) (file-name (string-append "libomp-" version ".tar.xz")))) (arguments - (substitute-keyword-arguments (package-arguments libomp-15) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'chdir-to-source-and-install-license @@ -911,7 +911,7 @@ Library.") "0d681xiixmx9inwvz14vi3xsznrcryk06a8rvk9cljiq5kc80szc")) (patches (search-patches "llvm-13-gcc-14.patch")))) (arguments - (substitute-keyword-arguments (package-arguments llvm-14) + (substitute-keyword-arguments arguments ((#:tests? _ #t) ;; The tests on riscv64 error on the differences between ;; generic and generic-rv64. @@ -956,7 +956,7 @@ Library.") "0kvbr4j6ldpssiv7chgqra5y77n7jwbyxlwcl7z32v31f49jcybb")) (file-name (string-append "libomp-" version ".tar.xz")))) (arguments - (substitute-keyword-arguments (package-arguments libomp-14) + (substitute-keyword-arguments arguments ((#:configure-flags flags) ;; Work around faulty target detection, fixed in 14: ;; https://github.com/llvm/llvm-project/issues/52910 @@ -985,7 +985,7 @@ Library.") "1pzx9zrmd7r3481sbhwvkms68fwhffpp4mmz45dgrkjpyl2q96kx")) (patches (search-patches "llvm-13-gcc-14.patch")))) (arguments - (substitute-keyword-arguments (package-arguments llvm-13) + (substitute-keyword-arguments arguments ;; Disable tests for old releases now compiled with newer GCC. ((#:tests? _ #false) #false) ((#:phases phases) @@ -1042,7 +1042,7 @@ Library.") "14dh0r6h2xh747ffgnsl4z08h0ri04azi9vf79cbz7ma1r27kzk0")) (file-name (string-append "libomp-" version ".tar.xz")))) (arguments - (substitute-keyword-arguments (package-arguments libomp-13) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~`(,@(delete "-DLIBOMPTARGET_BUILD_AMDGCN_BCLIB=OFF" #$flags))))) (native-inputs @@ -1122,7 +1122,7 @@ Library.") (version "18.1.8") (source (llvm-monorepo version)) (arguments - (substitute-keyword-arguments (package-arguments llvm-15) + (substitute-keyword-arguments arguments ((#:modules modules '((guix build cmake-build-system) (guix build utils))) (if (%current-target-system) @@ -1409,7 +1409,7 @@ Library.") "clang-rocm-default-new-dtags.patch" (assoc-ref %llvm-patches (package-version llvm-base))))))) (arguments - (substitute-keyword-arguments (package-arguments llvm-base) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append #$flags (list "-DLLVM_TARGETS_TO_BUILD=AMDGPU;X86" @@ -1452,7 +1452,7 @@ This AMD fork includes AMD-specific additions.")))) (replace "clang-runtime" clang-runtime-rocm) (append python-lit))) (arguments - (substitute-keyword-arguments (package-arguments clang-base) + (substitute-keyword-arguments arguments ;; The tests can be run, as allowed by check phase rewrite and ;; LLVM_EXTERNAL_LIT setting. However, 84/46171 are failing. Most ;; should probably be disabled. @@ -2102,7 +2102,7 @@ generator targetting AMD hardware.") (source (package-source llvm-rocm)) (inputs (list llvm-rocm)) (arguments - (substitute-keyword-arguments (package-arguments lld-base) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append #$flags '("-DLLVM_TARGETS_TO_BUILD=AMDGPU;X86"))))))) @@ -2121,7 +2121,7 @@ generator targetting AMD hardware.") (version (package-version llvm-rocm)) (source (package-source llvm-rocm)) (arguments - (substitute-keyword-arguments (package-arguments libomp-20) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons (string-append "-DOPENMP_LIT_ARGS=" @@ -2210,7 +2210,7 @@ the host.") rocr-runtime rocm-device-libs))) (arguments - (substitute-keyword-arguments (package-arguments clang-rocm-toolchain) + (substitute-keyword-arguments arguments ((#:builder _) #~(begin (use-modules (ice-9 match) @@ -2326,7 +2326,7 @@ using @code{clang-rename}."))) (inherit base-llvm) (name "llvm-for-mesa") (arguments - (substitute-keyword-arguments (package-arguments base-llvm) + (substitute-keyword-arguments arguments ((#:modules modules '((guix build cmake-build-system) (guix build utils))) `((ice-9 regex) @@ -2463,7 +2463,7 @@ LLVM bitcode files.") (package (inherit llvm-13) (arguments - (substitute-keyword-arguments (package-arguments llvm-13) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons* "-DLLVM_BUILD_LLVM_DYLIB=ON" "-DLLVM_LINK_LLVM_DYLIB=ON" @@ -2500,7 +2500,7 @@ LLVM bitcode files.") ;; This reduces the package size on disk from 547 MiB to 311 MiB. ;; Cling is intended to be used as a REPL on the host machine, not as a ;; cross-compiling toolchain. - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags cf ''()) #~(cons* "-DLLVM_TARGETS_TO_BUILD=host;NVPTX" #$cf))))))) @@ -2511,7 +2511,7 @@ LLVM bitcode files.") (version (package-version llvm-cling)) (source (package-source llvm-cling)) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'install 'delete-static-libraries @@ -2785,7 +2785,7 @@ required to build Swift.") "00bpplh8zd495n7dw5a64ncy23r2sgj7071kyhw7r9s53ihw1k1m")) (patches (search-patches "clang-18.0-libc-search-path.patch")))) (arguments - (substitute-keyword-arguments (package-arguments swift-llvm) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "-DUSE_DEPRECATED_GCC_INSTALL_PREFIX=ON" #$flags)) ((#:phases phases) diff --git a/gnu/packages/lua.scm b/gnu/packages/lua.scm index 6a09a83814..5de59de4bb 100644 --- a/gnu/packages/lua.scm +++ b/gnu/packages/lua.scm @@ -152,7 +152,7 @@ for configuration, scripting, and rapid prototyping.") (package (inherit lua) (version "5.4.8") (arguments - (substitute-keyword-arguments (package-arguments lua) + (substitute-keyword-arguments arguments ((#:make-flags flags) (append (delete "linux" flags) '("linux-readline"))))) diff --git a/gnu/packages/luanti.scm b/gnu/packages/luanti.scm index 4726bf3a5e..d0f0463baf 100644 --- a/gnu/packages/luanti.scm +++ b/gnu/packages/luanti.scm @@ -157,7 +157,7 @@ sources.") (inherit luanti) (name "luanti-server") (arguments - (substitute-keyword-arguments (package-arguments luanti) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(cons* "-DBUILD_CLIENT=FALSE" "-DBUILD_SERVER=TRUE" @@ -238,7 +238,7 @@ new features.") (sha256 (base32 "1qk98kzjv748f0aak8k20nxkqa7wbxwj3qjd4ks08ab9apgwzlps")))) (arguments - (substitute-keyword-arguments (package-arguments luanti) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'disable-development-build @@ -507,7 +507,7 @@ complicated to maintain.") (package/inherit luanti-mineclonia (name "luanti-mineclonia-csm") (arguments - (substitute-keyword-arguments (package-arguments luanti-mineclonia) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'unpack 'enable-csm-support diff --git a/gnu/packages/machine-learning.scm b/gnu/packages/machine-learning.scm index dcf8cc728d..bb0f35828d 100644 --- a/gnu/packages/machine-learning.scm +++ b/gnu/packages/machine-learning.scm @@ -2573,7 +2573,7 @@ data analysis.") (sha256 (base32 "08z1b58n31grfvl42wi6rdwrfhrdhnzkkxhg19iag3zkvkcvxqjl")))) (arguments - (substitute-keyword-arguments (package-arguments python-scikit-learn) + (substitute-keyword-arguments arguments ((#:test-flags flags) #~(list "--numprocesses" (number->string (min 8 (parallel-job-count))) "-m" "not network" @@ -4928,7 +4928,7 @@ PyTorch.") (chdir outdir) (delete-file-recursively "deps")))))) (arguments - (substitute-keyword-arguments (package-arguments qnnpack) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases %standard-phases (add-after 'unpack 'patch-cmake @@ -5395,7 +5395,7 @@ in the audio domain.") (modify-inputs (package-inputs python-pytorch) (append fbgemm nnpack))) (arguments - (substitute-keyword-arguments (package-arguments python-pytorch) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'disable-avx-dependencies))))) @@ -5435,7 +5435,7 @@ in the audio domain.") (modify-inputs (package-inputs python-pytorch) (replace "gloo" gloo-for-r-torch))) (arguments - (substitute-keyword-arguments (package-arguments python-pytorch) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'use-system-libraries diff --git a/gnu/packages/make-bootstrap.scm b/gnu/packages/make-bootstrap.scm index 16a2027142..5368a092c7 100644 --- a/gnu/packages/make-bootstrap.scm +++ b/gnu/packages/make-bootstrap.scm @@ -79,7 +79,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules." (_ "glibc-bootstrap-system.patch"))) (origin-patches (package-source base)))))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags flags) ;; Arrange so that getaddrinfo & co. do not contact the nscd, ;; and can use statically-linked NSS modules. @@ -187,7 +187,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules." (bzip2 (package (inherit bzip2) (arguments - (substitute-keyword-arguments (package-arguments bzip2) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-before 'build 'dash-static @@ -222,7 +222,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules." (origin-patches (package-source gawk)))))) (arguments - (substitute-keyword-arguments (package-arguments gawk) + (substitute-keyword-arguments arguments ((#:configure-flags _ #~'()) ;; Starting from gawk 4.1.0, some of the tests for the ;; plug-in mechanism just fail on static builds: @@ -245,7 +245,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules." (tar (package (inherit tar) (arguments - (substitute-keyword-arguments (package-arguments tar) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) ;; Work around a cross-compilation bug whereby libgnu.a ;; would provide '__mktime_internal', which conflicts @@ -268,7 +268,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules." (inherit grep) (inputs '()) ;remove PCRE, which is optional (arguments - (substitute-keyword-arguments (package-arguments grep) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons "--disable-perl-regexp" (delete "--enable-perl-regexp" #$flags))) @@ -481,7 +481,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules." (name "gcc-static") (outputs '("out")) ; all in one (arguments - (substitute-keyword-arguments (package-arguments gcc-14) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) `((srfi srfi-1) (srfi srfi-26) @@ -625,7 +625,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules." (replace "libgc" libgc/static-libs))) (arguments - (substitute-keyword-arguments (package-arguments guile) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) ;; When `configure' checks for ltdl availability, it ;; doesn't try to link using libtool, and thus fails diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index a222314698..6b2d51f485 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -1226,7 +1226,7 @@ large scale eigenvalue problems.") (modify-inputs (package-inputs arpack-ng) (prepend openmpi))) (arguments - (substitute-keyword-arguments (package-arguments arpack-ng) + (substitute-keyword-arguments arguments ((#:configure-flags _ #~()) #~'("-DMPI=ON")) ((#:phases phases #~%standard-phases) @@ -2153,7 +2153,7 @@ Interface to wrap the HDF5 library, which is implemented in C.") (inputs (modify-inputs (package-inputs hdf5) (prepend openmpi))) (arguments - (substitute-keyword-arguments (package-arguments hdf5) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(append (filter (lambda (flag) (not @@ -2459,7 +2459,7 @@ sharing of scientific data.") (replace "hdf5" hdf5-parallel-openmpi))) ;; TODO: Replace pkg-config references in nc-config with absolute references (arguments - (substitute-keyword-arguments (package-arguments netcdf) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "CC=mpicc" "CXX=mpicxx" @@ -3495,7 +3495,7 @@ script files.") ("texlive" ,(texlive-local-tree (list texlive-epsf))) ; for texi2dvi ,@(package-native-inputs octave-cli))) (arguments - (substitute-keyword-arguments (package-arguments octave-cli) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) `((guix build qt-utils) ,@modules)) ((#:imported-modules imported-modules %default-gnu-imported-modules) @@ -4097,7 +4097,7 @@ scientific applications modeled by partial differential equations.") (inherit petsc) (name "petsc-complex") (arguments - (substitute-keyword-arguments (package-arguments petsc) + (substitute-keyword-arguments arguments ((#:configure-flags cf) #~(cons "--with-scalar-type=complex" #$cf)))) (synopsis "Library to solve PDEs (with complex scalars)"))) @@ -4117,7 +4117,7 @@ scientific applications modeled by partial differential equations.") pt-scotch32 `(,pt-scotch32 "metis")))) (arguments - (substitute-keyword-arguments (package-arguments petsc) + (substitute-keyword-arguments arguments ((#:configure-flags cf) #~`("--with-hypre=1" "--with-mpiexec=mpirun" @@ -4157,7 +4157,7 @@ scientific applications modeled by partial differential equations.") (modify-inputs (package-inputs petsc-complex) (prepend openmpi))) (arguments - (substitute-keyword-arguments (package-arguments petsc-complex) + (substitute-keyword-arguments arguments ((#:configure-flags cf) #~`("--with-mpiexec=mpirun" ,(string-append "--with-mpi-dir=" @@ -4839,7 +4839,7 @@ arising after the discretization of partial differential equations.") (package (inherit slepc) (name "slepc-openmpi") (arguments - (substitute-keyword-arguments (package-arguments slepc) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) `(modify-phases ,phases (add-before 'check 'mpi-setup @@ -5212,7 +5212,7 @@ sparse system of linear equations A x = b using Gaussian elimination.") (delete "scotch") (prepend openmpi scalapack pt-scotch))) (arguments - (substitute-keyword-arguments (package-arguments mumps) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'check 'mpi-setup @@ -5478,7 +5478,7 @@ bio-chemistry.") (inherit scotch) (name "scotch32") (arguments - (substitute-keyword-arguments (package-arguments scotch) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~'("-DBUILD_SHARED_LIBS=YES" "-DBUILD_PTSCOTCH=OFF" "-DINTSIZE=32")))) (synopsis @@ -5491,7 +5491,7 @@ bio-chemistry.") (propagated-inputs (list openmpi)) ;headers include MPI headers (arguments - (substitute-keyword-arguments (package-arguments scotch) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~'("-DBUILD_SHARED_LIBS=YES" "-DBUILD_PTSCOTCH=ON" "-DINTSIZE=64")) ((#:phases phases #~%standard-phases) @@ -5507,7 +5507,7 @@ bio-chemistry.") (propagated-inputs (list openmpi)) ;headers include MPI headers (arguments - (substitute-keyword-arguments (package-arguments pt-scotch) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~'("-DBUILD_SHARED_LIBS=YES" "-DBUILD_PTSCOTCH=ON" "-DINTSIZE=32")))) (synopsis @@ -5783,7 +5783,7 @@ point numbers.") (delete "sbcl") (prepend ecl))) (arguments - (substitute-keyword-arguments (package-arguments maxima) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(list "--enable-ecl")) ((#:phases phases) @@ -6036,7 +6036,7 @@ from the GotoBLAS2-1.13 BSD version.") (name "openblas-ilp64") (supported-systems %64bit-supported-systems) (arguments - (substitute-keyword-arguments (package-arguments openblas) + (substitute-keyword-arguments arguments ((#:make-flags flags #~'()) ;; These should be '64' but julia hardcodes '64_'. #~(append (list "INTERFACE64=1" @@ -6648,7 +6648,7 @@ COLAMD which has the the option to apply constraints to the ordering.") "gklib-suitesparse.patch") (origin-patches (package-source gklib)))))) (arguments - (substitute-keyword-arguments (package-arguments gklib) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (add-after 'unpack 'patch-cmake @@ -7876,7 +7876,7 @@ problems.") (inputs (modify-inputs (package-inputs hypre) (prepend openmpi))) (arguments - (substitute-keyword-arguments (package-arguments hypre) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~`("--with-MPI" ,@(delete "--without-MPI" #$flags))) ((#:phases phases) @@ -8529,7 +8529,7 @@ symmetric matrices.") (modify-inputs (package-inputs elpa) (prepend openmpi scalapack zlib))) (arguments - (substitute-keyword-arguments (package-arguments elpa) + (substitute-keyword-arguments arguments ((#:configure-flags cf #~()) #~(cons "--with-mpi=yes" (delete "--with-mpi=no" #$cf))) @@ -8780,7 +8780,7 @@ easily be incorporated into existing simulation codes.") hypre-openmpi petsc-openmpi)) (arguments - (substitute-keyword-arguments (package-arguments sundials) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~()) #~(cons* "-DENABLE_MPI:BOOL=ON" "-DENABLE_HYPRE:BOOL=ON" @@ -9418,7 +9418,7 @@ built on top of DUNE, the Distributed and Unified Numerics Environment.") (inputs (modify-inputs (package-inputs p) (append openmpi))) (arguments - (substitute-keyword-arguments (package-arguments p) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) `(modify-phases ,phases (add-before 'check 'mpi-setup @@ -10011,7 +10011,7 @@ true in all models.") (sha256 (base32 "1zznrlj4zp1mc7s4pfw11aq773q2lr9yl6pph630zg5mqijaim5g")))) (arguments - (substitute-keyword-arguments (package-arguments cadiback) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'patch-build-files 'fix-prefix diff --git a/gnu/packages/maven-parent-pom.scm b/gnu/packages/maven-parent-pom.scm index a7d4c859b6..52ad3dbf63 100644 --- a/gnu/packages/maven-parent-pom.scm +++ b/gnu/packages/maven-parent-pom.scm @@ -575,7 +575,7 @@ tool. This package contains the Maven parent POM.") (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'install-plugins) @@ -588,7 +588,7 @@ tool. This package contains the Maven parent POM.") (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'install-plugins) @@ -606,7 +606,7 @@ tool. This package contains the Maven parent POM.") (package (inherit base) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'install-plugins) diff --git a/gnu/packages/maven.scm b/gnu/packages/maven.scm index 183de8eb40..ecd0433b08 100644 --- a/gnu/packages/maven.scm +++ b/gnu/packages/maven.scm @@ -1695,7 +1695,7 @@ process.")))) (package (inherit maven-core-bootstrap) (arguments - (substitute-keyword-arguments (package-arguments maven-core-bootstrap) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'build 'modify-metainf @@ -2693,7 +2693,7 @@ reporting or the build process."))) (version (package-version maven-3.0-pom)) (source (package-source maven-3.0-pom)) (arguments - (substitute-keyword-arguments (package-arguments maven-settings-builder) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'build 'generate-components.xml @@ -2723,7 +2723,7 @@ reporting or the build process."))) (version (package-version maven-3.0-pom)) (source (package-source maven-3.0-pom)) (arguments - (substitute-keyword-arguments (package-arguments maven-model-builder) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'build 'generate-components.xml @@ -2755,7 +2755,7 @@ reporting or the build process."))) (version (package-version maven-3.0-pom)) (source (package-source maven-3.0-pom)) (arguments - (substitute-keyword-arguments (package-arguments maven-plugin-api) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'install 'fix-pom @@ -2932,7 +2932,7 @@ reporting or the build process."))) (source (package-source maven-3.0-pom)) (arguments `(#:tests? #f ;require an old version of java-easymock - ,@(substitute-keyword-arguments (package-arguments maven-compat) + ,@(substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'install 'fix-pom @@ -3215,7 +3215,7 @@ Maven project dependencies.") (base32 "1cl1qk4r0gp62bjzfm7lml9raz1my2kd4yf0ci0lnfsn0h5qivnb")))) (arguments - (substitute-keyword-arguments (package-arguments maven-common-artifact-filters) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'fix-aether) diff --git a/gnu/packages/medical.scm b/gnu/packages/medical.scm index fda579e1ee..c4d2be640d 100644 --- a/gnu/packages/medical.scm +++ b/gnu/packages/medical.scm @@ -358,7 +358,7 @@ Medicine} server instead of SQLite.") (package/inherit orthanc-mysql (name "orthanc-mariadb") (arguments - (substitute-keyword-arguments (package-arguments orthanc-mysql) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'check @@ -440,7 +440,7 @@ GUI application (@code{xmedcon}).") (package/inherit xmedcon (name "xmedcon-minimal") (arguments - (substitute-keyword-arguments (package-arguments xmedcon) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append (list "--disable-glib" "--disable-gui") #$flags)))) (inputs (modify-inputs (package-inputs xmedcon) diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm index cc82c8ae4d..d26e04dfa6 100644 --- a/gnu/packages/messaging.scm +++ b/gnu/packages/messaging.scm @@ -702,7 +702,7 @@ identi.ca and status.net).") (files (list (string-append "lib/purple-2") "lib/pidgin"))))) (arguments - (substitute-keyword-arguments (package-arguments bitlbee) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) `(modify-phases ,phases (replace 'configure ;add "--purple=1" diff --git a/gnu/packages/monitoring.scm b/gnu/packages/monitoring.scm index 2e74fc1327..657ce22d21 100644 --- a/gnu/packages/monitoring.scm +++ b/gnu/packages/monitoring.scm @@ -168,7 +168,7 @@ (name "aw-client") (version "0.5.15") (arguments - (substitute-keyword-arguments (package-arguments aw-core) + (substitute-keyword-arguments arguments ((#:test-flags test-flags #~(list)) #~(list ;; Most likely requires the server to run. @@ -191,7 +191,7 @@ (name "aw-notify") (version "0.0.0") ;unreleased. (arguments - (substitute-keyword-arguments (package-arguments aw-core) + (substitute-keyword-arguments arguments ((#:tests? tests? #t) #f))) ;No tests. (synopsis "Notify library for ActivityWatch") @@ -203,7 +203,7 @@ (name "aw-qt") (version "0.1.0") (arguments - (substitute-keyword-arguments (package-arguments aw-core) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases ;; (delete 'sanity-check) @@ -276,7 +276,7 @@ retrieval of all your quantified self data.") (name "aw-watcher-afk") (version "0.2.0") (arguments - (substitute-keyword-arguments (package-arguments aw-core) + (substitute-keyword-arguments arguments ((#:tests? tests? #t) #f) ;Most likely requires the server to run. ((#:test-backend _ #f) @@ -295,7 +295,7 @@ retrieval of all your quantified self data.") (name "aw-watcher-input") (version "0.1.0") (arguments - (substitute-keyword-arguments (package-arguments aw-core) + (substitute-keyword-arguments arguments ((#:tests? tests? #t) #f))) ;No tests. (propagated-inputs @@ -309,7 +309,7 @@ retrieval of all your quantified self data.") (name "aw-watcher-window") (version "0.2.0") (arguments - (substitute-keyword-arguments (package-arguments aw-core) + (substitute-keyword-arguments arguments ((#:tests? tests? #t) #f))) ;No tests. (propagated-inputs @@ -631,7 +631,7 @@ solution (client-side agent)") (name "zabbix-server") (outputs '("out" "front-end" "schema")) (arguments - (substitute-keyword-arguments (package-arguments zabbix-agentd) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'install 'install-front-end diff --git a/gnu/packages/mpi.scm b/gnu/packages/mpi.scm index 72ba4ecd6a..b6e76ceac6 100644 --- a/gnu/packages/mpi.scm +++ b/gnu/packages/mpi.scm @@ -196,7 +196,7 @@ bind processes, and much more.") (append rocm-smi-lib) (delete "numactl"))) ;libnuma is no longer needed. (arguments - (substitute-keyword-arguments (package-arguments hwloc-1) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons* (string-append "--with-opencl=" #$(this-package-input "opencl-icd-loader")) @@ -488,7 +488,7 @@ software vendors, application developers and computer science researchers.") (name "openmpi-c++") (outputs '("out")) (arguments - (substitute-keyword-arguments (package-arguments openmpi) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-mpi-cxx" #$flags)))) (synopsis "C++ bindings for MPI"))) @@ -512,7 +512,7 @@ software vendors, application developers and computer science researchers.") (guix build utils)) #:imported-modules `((guix build ant-build-system) ,@%default-gnu-imported-modules) - (substitute-keyword-arguments (package-arguments openmpi) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-mpi-java" #$flags)) ((#:make-flags flags ''()) @@ -541,7 +541,7 @@ software vendors, application developers and computer science researchers.") (package/inherit openmpi (name "openmpi-thread-multiple") (arguments - (substitute-keyword-arguments (package-arguments openmpi) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-mpi-thread-multiple" #$flags)))) (description "This version of Open@tie{}MPI has an implementation of @@ -747,7 +747,7 @@ modular framework for other derived implementations.") (append rdma-core) (append psm2))) (arguments - (substitute-keyword-arguments (package-arguments mpich) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(list "--disable-silent-rules" ;let's see what's happening "--enable-debuginfo" diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index b8e2bfc8f1..1cac72b22a 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -1782,7 +1782,7 @@ session can be interrupted and easily resumed at a later time.") (package (inherit non-sequencer) (name "non-session-manager") (arguments - (substitute-keyword-arguments (package-arguments non-sequencer) + (substitute-keyword-arguments arguments ((#:configure-flags flags) `(cons "--project=session-manager" (delete "--project=sequencer" ,flags))))) @@ -1803,7 +1803,7 @@ communicate with the session management daemon.") (package (inherit non-sequencer) (name "non-mixer") (arguments - (substitute-keyword-arguments (package-arguments non-sequencer) + (substitute-keyword-arguments arguments ((#:configure-flags flags) `(cons "--project=mixer" (delete "--project=sequencer" ,flags))))) @@ -1825,7 +1825,7 @@ studio.") (package (inherit non-sequencer) (name "non-timeline") (arguments - (substitute-keyword-arguments (package-arguments non-sequencer) + (substitute-keyword-arguments arguments ((#:configure-flags flags) `(cons "--project=timeline" (delete "--project=sequencer" ,flags))))) diff --git a/gnu/packages/ncurses.scm b/gnu/packages/ncurses.scm index af88683ce6..389ed9ec97 100644 --- a/gnu/packages/ncurses.scm +++ b/gnu/packages/ncurses.scm @@ -236,7 +236,7 @@ ncursesw library provides wide character support.") (package/inherit ncurses (name "ncurses-with-gpm") (arguments - (substitute-keyword-arguments (package-arguments ncurses) + (substitute-keyword-arguments arguments ((#:configure-flags cf) #~(cons (string-append "--with-gpm=" #$(this-package-input "gpm") @@ -250,7 +250,7 @@ ncursesw library provides wide character support.") (package/inherit ncurses (name "ncurses-with-tinfo") (arguments - (substitute-keyword-arguments (package-arguments ncurses) + (substitute-keyword-arguments arguments ((#:configure-flags cf) #~(cons "--with-termlib=tinfo" #$cf)))))) diff --git a/gnu/packages/node.scm b/gnu/packages/node.scm index 99f8843f08..5b47e94ebd 100644 --- a/gnu/packages/node.scm +++ b/gnu/packages/node.scm @@ -773,7 +773,7 @@ source files.") "deps/uv" "deps/zlib")))))) (arguments - (substitute-keyword-arguments (package-arguments node-bootstrap) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) ''("--shared-cares" "--shared-libuv" @@ -998,7 +998,7 @@ fi" (package/inherit node-lts (name "libnode") (arguments - (substitute-keyword-arguments (package-arguments node-lts) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) `(cons* "--shared" "--without-npm" ,flags)) ((#:phases phases '%standard-phases) diff --git a/gnu/packages/ocaml.scm b/gnu/packages/ocaml.scm index 904a1fb557..daab1de491 100644 --- a/gnu/packages/ocaml.scm +++ b/gnu/packages/ocaml.scm @@ -2261,7 +2261,7 @@ module of this library is parameterised by the type of S-expressions.") (arguments `(#:ocaml ,ocaml-4.09 #:findlib ,ocaml4.09-findlib - ,@(substitute-keyword-arguments (package-arguments ocaml-csexp) + ,@(substitute-keyword-arguments arguments ((#:dune _) ocaml4.09-dune-bootstrap)))) (propagated-inputs `(("ocaml-result" ,ocaml4.09-result))))) @@ -2273,7 +2273,7 @@ module of this library is parameterised by the type of S-expressions.") (arguments `(#:ocaml ,ocaml-5.0 #:findlib ,ocaml5.0-findlib - ,@(substitute-keyword-arguments (package-arguments ocaml-csexp) + ,@(substitute-keyword-arguments arguments ((#:dune _) ocaml5.0-dune-bootstrap)))) (propagated-inputs `(("ocaml-result" ,ocaml5.0-result))))) @@ -3895,7 +3895,7 @@ and consumable.") (base32 "1z8mmk1idh9hjhh2b9rp5b1h8kmzcxhagqkw0pvxn6ykx1brskq1")))) (arguments - (substitute-keyword-arguments (package-arguments ocaml-sedlex) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f))) ; no tests (native-inputs '()))) diff --git a/gnu/packages/onc-rpc.scm b/gnu/packages/onc-rpc.scm index 9b66987c72..2ecf5b9d1e 100644 --- a/gnu/packages/onc-rpc.scm +++ b/gnu/packages/onc-rpc.scm @@ -92,7 +92,7 @@ IPv4 and IPv6. ONC RPC is notably used by the network file system (NFS).") (patches (search-patches "libtirpc-hurd.patch" "libtirpc-CVE-2021-46828.patch")))) (arguments - (substitute-keyword-arguments (package-arguments libtirpc) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) ;; When cross-building the target system's krb5-config should be used. #~(list (string-append "ac_cv_prog_KRB5_CONFIG=" diff --git a/gnu/packages/openldap.scm b/gnu/packages/openldap.scm index 68179ed207..6134130006 100644 --- a/gnu/packages/openldap.scm +++ b/gnu/packages/openldap.scm @@ -139,7 +139,7 @@ (base32 "06qf8lcalvgzr3w1m697xrj12ikav5im00wjmxa62qdmsg5rvji1")))) (arguments - (substitute-keyword-arguments (package-arguments openldap) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append (list #$(string-append "CFLAGS=-g -O2" diff --git a/gnu/packages/openstack.scm b/gnu/packages/openstack.scm index 359880fcbf..f062e7e1c6 100644 --- a/gnu/packages/openstack.scm +++ b/gnu/packages/openstack.scm @@ -91,7 +91,7 @@ formatters, and other extensions.") (hidden-package (package/inherit python-cliff (arguments - (substitute-keyword-arguments (package-arguments python-cliff) + (substitute-keyword-arguments arguments ((#:tests? t? #t) #f) ((#:phases phases #~%standard-phases) @@ -249,7 +249,7 @@ is for some reason not possible and local caching of the fetched data.") (hidden-package (package/inherit python-os-service-types (arguments - (substitute-keyword-arguments (package-arguments python-os-service-types) + (substitute-keyword-arguments arguments ((#:tests? t? #t) #f) ((#:phases phases #~%standard-phases) @@ -352,7 +352,7 @@ extensions.") (hidden-package (package/inherit python-stevedore (arguments - (substitute-keyword-arguments (package-arguments python-stevedore) + (substitute-keyword-arguments arguments ((#:tests? t? #t) #f) ((#:phases phases #~%standard-phases) @@ -682,7 +682,7 @@ in an application or library.") (hidden-package (package/inherit python-oslo-i18n (arguments - (substitute-keyword-arguments (package-arguments python-oslo-i18n) + (substitute-keyword-arguments arguments ((#:tests? t? #t) #f) ((#:phases phases #~%standard-phases) @@ -739,7 +739,7 @@ handlers and support for context specific logging (like resource id’s etc).") (hidden-package (package/inherit python-oslo-log (arguments - (substitute-keyword-arguments (package-arguments python-oslo-log) + (substitute-keyword-arguments arguments ((#:tests? t? #t) #f) ((#:phases phases #~%standard-phases) @@ -865,7 +865,7 @@ for debugging, and better support for mocking results.") (hidden-package (package/inherit python-oslotest (arguments - (substitute-keyword-arguments (package-arguments python-oslotest) + (substitute-keyword-arguments arguments ((#:tests? t? #t) #f) ((#:phases phases #~%standard-phases) diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 8a35f2064b..5f173d9979 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -601,7 +601,7 @@ the Nix package manager.") (propagated-inputs '()) (arguments - (substitute-keyword-arguments (package-arguments guix) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) ;; Pretend we have those libraries; we don't actually need them. #~(append #$flags @@ -1908,7 +1908,7 @@ resolution compared to the classic solver.") (search-patches "conda-fix-plugin-settings-test.patch" "conda-fix-cross-platform-export-tests.patch")))) (arguments - (substitute-keyword-arguments (package-arguments conda-bootstrap) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases ;; Remove the patch that forces classic solver - we have libmamba @@ -2221,7 +2221,7 @@ outputs of those builds.") (inherit guix-build-coordinator) (name "guix-build-coordinator-agent-only") (arguments - (substitute-keyword-arguments (package-arguments guix-build-coordinator) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (add-after 'install 'strip-non-agent-files diff --git a/gnu/packages/parallel.scm b/gnu/packages/parallel.scm index 18031885dc..50baa27293 100644 --- a/gnu/packages/parallel.scm +++ b/gnu/packages/parallel.scm @@ -328,7 +328,7 @@ minimal slurm package BASE-SLURM." (inherit base-slurm) (name "slurm") (arguments - (substitute-keyword-arguments (package-arguments base-slurm) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* "--enable-slurmrestd" (string-append "--with-bpf=" @@ -761,7 +761,7 @@ commonly needed services in distributed and parallel computing systems.") ;; Remove ~5 MiB of pre-built HTML doc. (delete-file-recursively "docs/_build/html"))))) (arguments - (substitute-keyword-arguments (package-arguments openpmix) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(list (string-append "--with-hwloc=" (ungexp (this-package-input "hwloc") "lib")) diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm index 95a5a4eaaf..ebd44d0ca3 100644 --- a/gnu/packages/password-utils.scm +++ b/gnu/packages/password-utils.scm @@ -1277,7 +1277,7 @@ using password-store through rofi interface: (inherit rofi-pass) (name "rofi-pass-wayland") (arguments - (substitute-keyword-arguments (package-arguments rofi-pass) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases ;; Set the clipboard and backend tools to ones for Wayland in the diff --git a/gnu/packages/plan9.scm b/gnu/packages/plan9.scm index 5190414e5a..c070fc0cdf 100644 --- a/gnu/packages/plan9.scm +++ b/gnu/packages/plan9.scm @@ -132,7 +132,7 @@ reconstruct a Plan 9 terminal-like experience from a non-Plan 9 system.") (inherit drawterm) (name "drawterm-wayland") (arguments - (substitute-keyword-arguments (package-arguments drawterm) + (substitute-keyword-arguments arguments ((#:make-flags _) `(list "CONF=linux" ,(string-append "CC=" (cc-for-target)))))) diff --git a/gnu/packages/potassco.scm b/gnu/packages/potassco.scm index 8227e35654..9cae7f1d4a 100644 --- a/gnu/packages/potassco.scm +++ b/gnu/packages/potassco.scm @@ -406,7 +406,7 @@ in particular ones that can be solved by @command{clingo}.") (name name) (version (package-version clingo)) ; for #$version in arguments (arguments - (substitute-keyword-arguments (package-arguments clingo) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* "-DCLINGO_BUILD_WITH_LUA=yes" (string-append "-DLUACLINGO_INSTALL_DIR=" @@ -429,7 +429,7 @@ Lua code."))) (name "python-clingo") (version (package-version clingo)) ; for #$version in arguments (arguments - (substitute-keyword-arguments (package-arguments clingo) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons* "-DCLINGO_BUILD_WITH_PYTHON=pip" (string-append "-DCMAKE_MODULE_PATH=" @@ -526,7 +526,7 @@ directly from the python command line."))) #:modules '((guix build cmake-build-system) ((guix build pyproject-build-system) #:prefix python:) (guix build utils)) - (substitute-keyword-arguments (package-arguments clingcon) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'install 'install-distinfo diff --git a/gnu/packages/profiling.scm b/gnu/packages/profiling.scm index c50eaab593..55b20ae055 100644 --- a/gnu/packages/profiling.scm +++ b/gnu/packages/profiling.scm @@ -301,7 +301,7 @@ project.") (sha256 (base32 "0hwl0aihn6fgpl0qhqckxc3sslb78wq6xav5ykfgfjzpyddqyrd0")))) (arguments - (substitute-keyword-arguments (package-arguments cubew) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append #$flags (list "--with-compression=full"))) @@ -423,7 +423,7 @@ sampling profiler for games and other applications.") (inherit tracy-wayland) (name "tracy") (arguments - (substitute-keyword-arguments (package-arguments tracy-wayland) + (substitute-keyword-arguments arguments ((#:make-flags flags #~'()) #~(append #$flags ;; The LEGACY flag indicate we want to build tracy with glfw. diff --git a/gnu/packages/protobuf.scm b/gnu/packages/protobuf.scm index 309a6a6f55..8c7353056e 100644 --- a/gnu/packages/protobuf.scm +++ b/gnu/packages/protobuf.scm @@ -313,7 +313,7 @@ internal RPC protocols and file formats.") (base32 "0ggyfrfal7wms4n8pba224jwpjxn19rigd5y90m3x2bg97ych775")))) (build-system gnu-build-system) - (arguments (substitute-keyword-arguments (package-arguments protobuf) + (arguments (substitute-keyword-arguments arguments ;; XXX: insists on using bundled googletest ((#:tests? _ #f) #false) ((#:configure-flags _ #f) @@ -336,7 +336,7 @@ internal RPC protocols and file formats.") (base32 "0a955bz59ihrb5wg7dwi12xajdi5pmz4bl0g147rbdwv393jwwxk")))) (build-system gnu-build-system) - (arguments (substitute-keyword-arguments (package-arguments protobuf) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags _ #f) #~(list)) ((#:phases phases) diff --git a/gnu/packages/pypy.scm b/gnu/packages/pypy.scm index d1ae00aa79..87e8acc764 100644 --- a/gnu/packages/pypy.scm +++ b/gnu/packages/pypy.scm @@ -295,7 +295,7 @@ Python code natively, including C extensions.") (base32 "1yq6n888fxfdqid29q3w8bn7ii800bjkf44w82kjwgh0c2kxv1kp")))) (arguments - (substitute-keyword-arguments (package-arguments pypy2) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (replace 'patch-source diff --git a/gnu/packages/python-crypto.scm b/gnu/packages/python-crypto.scm index 4a9b0a8128..9b66cb6211 100644 --- a/gnu/packages/python-crypto.scm +++ b/gnu/packages/python-crypto.scm @@ -1084,7 +1084,7 @@ PyCryptodome variants, the other being python-pycryptodomex.") (package/inherit python-pycryptodome (name "python-pycryptodomex") (arguments - (substitute-keyword-arguments (package-arguments python-pycryptodome) + (substitute-keyword-arguments arguments ((#:test-flags _) #~(list "-m" "Cryptodome.SelfTest")) ((#:phases phases #~%standard-phases) diff --git a/gnu/packages/python-science.scm b/gnu/packages/python-science.scm index cfdf2e56c6..c25be19ac8 100644 --- a/gnu/packages/python-science.scm +++ b/gnu/packages/python-science.scm @@ -403,7 +403,7 @@ object-oriented library such as @code{scikit-learn}.") (package/inherit python-anndata (name "python-anndata-minimal") (arguments - (substitute-keyword-arguments (package-arguments python-anndata) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f))) (native-inputs (list python-hatch-vcs @@ -1948,7 +1948,7 @@ between dataframe libraries. (package/inherit python-narwhals (name "python-narwhals-minimal") (arguments - (substitute-keyword-arguments (package-arguments python-anndata) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f))) (native-inputs (list python-hatchling)) diff --git a/gnu/packages/python-web.scm b/gnu/packages/python-web.scm index 80b7128678..0f1b8fb0fa 100644 --- a/gnu/packages/python-web.scm +++ b/gnu/packages/python-web.scm @@ -5955,7 +5955,7 @@ outside of the Zope framework.") #:tests? #f #:phases #~(modify-phases %standard-phases (delete 'sanity-check))) - (substitute-keyword-arguments (package-arguments orig) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f) ((#:phases phases '%standard-phases) #~(modify-phases #$phases diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm index a9bff220bd..b1afbd051f 100644 --- a/gnu/packages/python-xyz.scm +++ b/gnu/packages/python-xyz.scm @@ -8341,7 +8341,7 @@ and convert DDL to BigQuery JSON schema.") (base32 "0ykr61yiiizgvm3bzipa3l73rvj49wmrybbfwhvpgk3pscl5pa68")))) (arguments - (substitute-keyword-arguments (package-arguments python-jsonschema) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f))) (propagated-inputs (list python-attrs @@ -16758,7 +16758,7 @@ from an XML-based format.") (package/inherit base (name "python-fonttools") (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:tests? _ #f) (not (%current-target-system))) ((#:phases phases '%standard-phases) @@ -22013,7 +22013,7 @@ feels like an AST.") (inherit python-libcst) (name "python-libcst-minimal") (arguments - (substitute-keyword-arguments (package-arguments python-libcst) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f))) (native-inputs (list python-minimal-wrapper @@ -25942,7 +25942,7 @@ events on Linux.") (inherit python-pyinotify) (name "python-pyinotify-cli") (arguments - (substitute-keyword-arguments (package-arguments python-pyinotify) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (delete 'drop-shebang) @@ -28199,7 +28199,7 @@ Complete support for Berkeley DB Base Replication. Support for RPC.") (sha256 (base32 "00bqdsfx8jgmfz5bgkx10nlw5bfsw11a86f91zkl53snvk45xl3h")))) (arguments - (substitute-keyword-arguments (package-arguments python-berkeleydb) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (delete 'remove-legacy))) @@ -41139,7 +41139,7 @@ interfaces.") (search-patches "python-zeroc-ice-3.6.5-python-3.11-support.patch")))) (arguments - (substitute-keyword-arguments (package-arguments python-zeroc-ice) + (substitute-keyword-arguments arguments ((#:phases phases #~%standard-phases) #~(modify-phases #$phases (add-before 'build 'relax-gcc-14-strictness diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index c28f76f97c..687e285792 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -493,7 +493,7 @@ data types.") (for-each delete-file (find-files "Lib/distutils/command" "\\.exe$")))))) (arguments - (substitute-keyword-arguments (package-arguments python-2) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append #$flags ;; XXX Use quote to avoid world rebuild at this time @@ -1509,7 +1509,7 @@ data types.") (outputs '("out" "debug")) (build-system gnu-build-system) (arguments - (substitute-keyword-arguments (package-arguments python) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(append #$configure-flags (list "--with-pydebug"))))) @@ -1580,7 +1580,7 @@ and the unversioned commands available."))) (hidden-package (package/inherit python (arguments - (substitute-keyword-arguments (package-arguments python) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~()) #~(append '("--with-ensurepip=no") (delete "--with-ensurepip=install" #$flags)))))))) diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm index 03eaa2db29..f31537676f 100644 --- a/gnu/packages/qt.scm +++ b/gnu/packages/qt.scm @@ -872,7 +872,7 @@ developers using C++ or QML, a CSS & JavaScript like language.") "qtbase-patch-libvulkan.patch")))) (build-system cmake-build-system) (arguments - (substitute-keyword-arguments (package-arguments qtbase-5) + (substitute-keyword-arguments arguments ((#:configure-flags _ ''()) `(let ((out (assoc-ref %outputs "out"))) (list "-GNinja" ;officially supported @@ -1620,7 +1620,7 @@ support for MNG, TGA, TIFF and WBMP image formats.") (base32 "145hbdaj4r3lljgiasx404c12dl5sk4nghc1pc7w5xy1m8gppcgf")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) ; TODO: Enable the tests (native-inputs (list perl)) (inputs @@ -1686,7 +1686,7 @@ XLSX document format.") (base32 "19pq6bmr7zs2n7m8hqsyxyml7kggdkvz0sdhxsg5gvk9fa264b4i")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-after 'unpack 'disable-network-tests @@ -1716,7 +1716,7 @@ xmlpatternsvalidator."))) "1nnmch6a3k8ja9q8vzhl6kcl52xyy90rpbnaaqqvirwdgrfjvkg1")) (patches (search-patches "qtdeclarative-5-disable-qmlcache.patch")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f) ;TODO: Enable the tests ((#:phases phases) #~(modify-phases #$phases @@ -1983,7 +1983,7 @@ with Bluetooth and NFC.") (base32 "11fb6bvabkdhjlwyd3q0nmzhaildv9dnda78j9sphfdd5c0x1i6c")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) ; TODO: Enable the tests (native-inputs (list perl qtdeclarative-5)) @@ -2067,7 +2067,7 @@ recognition API for devices."))) (base32 "00h0qm6g0qjy56q3b7vp1m93p1jyaidlsl1cqmvv38ws5r79pb4h")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:parallel-tests? _ #f) #f) ; can lead to race condition ((#:phases phases) `(modify-phases ,phases @@ -2106,7 +2106,7 @@ recognition API for devices."))) (substitute* "examples/multimedia/multimedia.pro" (("spectrum") "#")))))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (replace 'configure @@ -2296,7 +2296,7 @@ record media, and manage a collection of media content.") (base32 "07gqgd6ixqnsvc9r1c9y92vaxwj11ijrqvnxib8sv6xwhcmhvw43")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'disable-failing-tests @@ -2440,7 +2440,7 @@ compositor libraries.") (native-inputs (list perl)) (inputs (list qtbase-5 eudev)) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'patch-dlopen-paths @@ -2501,7 +2501,7 @@ interacting with serial ports from within Qt.") (base32 "0408pp9glr17yh60snmb2gx0vr7fwk0xf17hiwpwg837qk4si07f")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'unpack 'patch-libsocketcan-reference @@ -2584,7 +2584,7 @@ application).") (base32 "0msg2ghi5g7anv7nlkj55b1dwpz6dgd4qv1brikb06nvmxs6dl8b")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'disable-network-tests @@ -2702,7 +2702,7 @@ Server Protocol (LSP) for Qt.") deps/rapidjson/1\\.1\\.0/include \\\\") ""))))))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f) ; TODO: Enable the tests ((#:phases phases) #~(modify-phases #$phases @@ -2727,7 +2727,7 @@ positioning and geolocation plugins."))) (base32 "1ybk3ig69p6zyrxabcfkb4pcyc251gy1m2brkf4q52cmcwcysias")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f) ; TODO: Enable the tests ((#:phases phases) #~(modify-phases #$phases @@ -2785,7 +2785,7 @@ plugin for Adobe After Effects.") (base32 "1imzr7gxbbl1m05g6a4ji0pxvabp0j4x3q33dxa7zfrjczmhcc23")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f) ; TODO: Enable the tests ((#:phases phases '%standard-phases) #~(modify-phases #$phases @@ -2977,7 +2977,7 @@ body can have its own physical properties like mass, density and friction.") (base32 "0d22z6a1l7iv1xmzgsf7inpgi857mg1ffv327wv7q2iapg2fsiw3")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) ; TODO: Enable the tests (inputs (list qtbase-5 qtdeclarative-5)) (synopsis "Qt Quick Controls and other Quick modules") @@ -2997,7 +2997,7 @@ can be used to build complete interfaces in Qt Quick."))) (base32 "0v7mwzhc42cwf12z11g9qmysqhsqcvfk4pghh9n2p2kbrz6xdnd0")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) ; TODO: Enable the tests (inputs (list qtbase-5 qtdeclarative-5)) (synopsis "Qt Quick Controls 2 and other Quick 2 modules") @@ -3018,7 +3018,7 @@ not available."))) (base32 "07m25w5qm6i13ygxg0pwaqfda4b8zyhs87n366cyn3wwm96x18ma")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) ; TODO: Enable the tests (inputs (list qtbase-5 qtdeclarative-5)) (synopsis "Qt Graphical Effects module") @@ -3073,7 +3073,7 @@ and mobile applications targeting TV-like form factors."))) ;; the scion test refers to the bundled 3rd party test code. (substitute* "tests/auto/auto.pro" (("scion") "#")))))) - (arguments (substitute-keyword-arguments (package-arguments qtsvg-5) + (arguments (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) ; TODO: Enable the tests (inputs (list qtbase-5 qtdeclarative-5)) (synopsis "Qt SCXML module") @@ -3192,7 +3192,7 @@ purchasing goods and services."))) (base32 "0csimm84df9f70irp8di8r208jpiv6hhfbxdi4sxh9935ygpqgc4")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'remove-failing-test @@ -3265,7 +3265,7 @@ graphs by selecting one of the charts themes.") (base32 "09xwhff4l0yn6dn22qcnsn8k929r7xvg2a4zmslq1hd6ph2d2as2")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) ; TODO: Enable the tests (inputs (list qtbase-5 qtdeclarative-5)) (synopsis "Qt Data Visualization module") @@ -3413,7 +3413,7 @@ processes or computers.") (base32 "11s5nhcj7ns7fwwmpmfv8i45b5h3xmjlq8rhm6qk11plvwi44dss")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) ; TODO: Enable the tests (inputs (list qtbase-5)) (native-inputs (list perl qtdeclarative-5 qtmultimedia-5 qtxmlpatterns-5)) @@ -3482,7 +3482,7 @@ message.") (base32 "03qxll32431qwrrbnb75mm9xbdq0lvzj03037yzw6mxfhl491sh6")))) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f) ; TODO: pass 2 fail test ((#:phases phases) `(modify-phases ,phases @@ -3896,7 +3896,7 @@ linux/libcurl_wrapper.h") ;; Required by Qt5WebEngineCoreConfig.cmake. (list qtbase-5 qtdeclarative-5 qtwebchannel-5)) (arguments - (substitute-keyword-arguments (package-arguments qtsvg-5) + (substitute-keyword-arguments arguments ((#:modules modules '()) `((guix build gnu-build-system) (guix build utils) @@ -4541,7 +4541,7 @@ instances.") (base32 "069aww3aww6968hmipzfbj57a5vw6jxj1mr20nsb1yh98n5c01rv")))) (arguments - (substitute-keyword-arguments (package-arguments single-application-qt5) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "-DQT_DEFAULT_MAJOR_VERSION=6" #$flags)))) (inputs (list qtbase)))) @@ -4603,7 +4603,7 @@ Python.") (package/inherit pyotherside (name "pyotherside-for-qt5") (arguments - (substitute-keyword-arguments (package-arguments pyotherside) + (substitute-keyword-arguments arguments ((#:qtbase _ #f) qtbase-5) ((#:phases phases '%standard-phases) @@ -5320,7 +5320,7 @@ securely. It will not store any data unencrypted unless explicitly requested.") (modify-inputs (package-inputs qtkeychain) (replace "qtbase" qtbase))) (arguments - (substitute-keyword-arguments (package-arguments qtkeychain) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~(list)) #~(cons "-DBUILD_WITH_QT6=ON" #$flags)) ((#:phases phases '%standard-phases) @@ -5960,7 +5960,7 @@ color-related widgets.") (replace "qtbase" qtbase) (delete "qtxmlpatterns"))) (arguments - (substitute-keyword-arguments (package-arguments python-shiboken-2) + (substitute-keyword-arguments arguments ((#:phases p) #~(modify-phases #$p (delete 'workaround-importlib-error) @@ -6571,7 +6571,7 @@ a secure way.") (package (inherit packagekit-qt5) (name "packagekit-qt6") - (arguments (substitute-keyword-arguments (package-arguments packagekit-qt5) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons "-DBUILD_WITH_QT6=ON" #$flags)))) (inputs (modify-inputs (package-inputs packagekit-qt5) diff --git a/gnu/packages/racket.scm b/gnu/packages/racket.scm index 4efaa79f75..58ad66caa4 100644 --- a/gnu/packages/racket.scm +++ b/gnu/packages/racket.scm @@ -406,7 +406,7 @@ code to use the 3M garbage collector.") (modify-inputs (package-native-inputs racket-vm-cgc) (prepend racket-vm-cgc)))) (arguments - (substitute-keyword-arguments (package-arguments racket-vm-cgc) + (substitute-keyword-arguments arguments ((#:configure-flags _ '()) #~(cons "--enable-bconly" #$(cond @@ -458,7 +458,7 @@ collector, 3M (``Moving Memory Manager'').") (prepend chez-scheme-for-racket chez-nanopass-bootstrap)))) (arguments - (substitute-keyword-arguments (package-arguments racket-vm-cgc) + (substitute-keyword-arguments arguments ((#:phases those-phases #~%standard-phases) #~(modify-phases #$those-phases (add-after 'unpack 'unpack-nanopass @@ -997,7 +997,7 @@ DrRacket IDE, are not included.") '("xrepl" "xrepl-doc" "xrepl-lib")))) (build-system gnu-build-system) (arguments - (substitute-keyword-arguments (package-arguments racket-minimal) + (substitute-keyword-arguments arguments ((#:make-flags _ '()) #~`("main-distribution")) ((#:configure-flags _ '()) diff --git a/gnu/packages/ruby-xyz.scm b/gnu/packages/ruby-xyz.scm index 8a81518177..c2235eeb73 100644 --- a/gnu/packages/ruby-xyz.scm +++ b/gnu/packages/ruby-xyz.scm @@ -555,7 +555,7 @@ eq(1)\\}}.") (package (inherit ruby-rspec-its) (arguments - (substitute-keyword-arguments (package-arguments ruby-rspec-its) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) (native-inputs '())))) @@ -1845,7 +1845,7 @@ for performance optimizations in Ruby code.") (package (inherit ruby-rubocop-performance) (arguments - (substitute-keyword-arguments (package-arguments ruby-rubocop-performance) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f))) (propagated-inputs '()) (native-inputs '())))) @@ -3735,7 +3735,7 @@ It is a low-dependency variant of ruby-hydra.") (inherit ruby-hydra-minimal) (name "ruby-hydra") (arguments - (substitute-keyword-arguments (package-arguments ruby-hydra-minimal) + (substitute-keyword-arguments arguments ((#:tests? tests? #t) #t) ((#:phases phases #~%standard-phases) @@ -10512,7 +10512,7 @@ engine.") (base32 "0ngirjbai3f5ki2sf6m4gxbbrjpr3b35bz5nrz1cifyw1jk6a6sr")))) (arguments - (substitute-keyword-arguments (package-arguments ruby-sqlite3) + (substitute-keyword-arguments arguments ((#:tests? #t #t) #f) ((#:gem-flags _ #f) ''("--" @@ -11056,7 +11056,7 @@ defined in a @file{.env} file.") (inherit ruby-dotenv) (name "ruby-dotenv-rails") (arguments - (substitute-keyword-arguments (package-arguments ruby-dotenv) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (delete 'do-not-build-dotenv-rails) diff --git a/gnu/packages/rust-apps.scm b/gnu/packages/rust-apps.scm index 55cb7b1a84..a89a09de05 100644 --- a/gnu/packages/rust-apps.scm +++ b/gnu/packages/rust-apps.scm @@ -4621,7 +4621,7 @@ and users are in full control of their data and workflow.") (inherit rust-xremap) (name "xremap-gnome") (arguments - (substitute-keyword-arguments (package-arguments rust-xremap) + (substitute-keyword-arguments arguments ((#:features _) '(list "gnome")))))) (define-public xremap-hyprland @@ -4629,7 +4629,7 @@ and users are in full control of their data and workflow.") (inherit rust-xremap) (name "xremap-hyprland") (arguments - (substitute-keyword-arguments (package-arguments rust-xremap) + (substitute-keyword-arguments arguments ((#:features _) '(list "hypr")))))) (define-public xremap-kde @@ -4637,7 +4637,7 @@ and users are in full control of their data and workflow.") (inherit rust-xremap) (name "xremap-kde") (arguments - (substitute-keyword-arguments (package-arguments rust-xremap) + (substitute-keyword-arguments arguments ((#:features _) '(list "kde")))))) (define-public xremap-niri @@ -4645,7 +4645,7 @@ and users are in full control of their data and workflow.") (inherit rust-xremap) (name "xremap-niri") (arguments - (substitute-keyword-arguments (package-arguments rust-xremap) + (substitute-keyword-arguments arguments ((#:features _) '(list "niri")))))) (define-public xremap-wlroots @@ -4653,7 +4653,7 @@ and users are in full control of their data and workflow.") (inherit rust-xremap) (name "xremap-wlroots") (arguments - (substitute-keyword-arguments (package-arguments rust-xremap) + (substitute-keyword-arguments arguments ((#:features _) '(list "wlroots")))))) (define-deprecated-package xremap-sway @@ -4664,7 +4664,7 @@ and users are in full control of their data and workflow.") (inherit rust-xremap) (name "xremap-x11") (arguments - (substitute-keyword-arguments (package-arguments rust-xremap) + (substitute-keyword-arguments arguments ((#:features _) '(list "x11")))))) (define-public xsv diff --git a/gnu/packages/samba.scm b/gnu/packages/samba.scm index 338e3f013a..f393b73eaf 100644 --- a/gnu/packages/samba.scm +++ b/gnu/packages/samba.scm @@ -472,7 +472,7 @@ destructors. It is the core memory allocator used in Samba.") (synopsis "Hierarchical, reference counted memory pool system (static library)") (arguments - (substitute-keyword-arguments (package-arguments talloc) + (substitute-keyword-arguments arguments ((#:phases phases) ;; Since Waf, the build system talloc uses, apparently does not ;; support building static libraries from a ./configure flag, roll our diff --git a/gnu/packages/scanner.scm b/gnu/packages/scanner.scm index 66ea7dabf3..5b61416a41 100644 --- a/gnu/packages/scanner.scm +++ b/gnu/packages/scanner.scm @@ -236,7 +236,7 @@ package contains the library, but no drivers.") ("libxml2" ,libxml2) ; for pixma back end ,@(package-inputs sane))) (arguments - (substitute-keyword-arguments (package-arguments sane) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (delete 'disable-backends) diff --git a/gnu/packages/search.scm b/gnu/packages/search.scm index f36c1b231b..a36d240d70 100644 --- a/gnu/packages/search.scm +++ b/gnu/packages/search.scm @@ -435,7 +435,7 @@ decompression.") (package/inherit recoll (name "recoll-cli") (arguments - (substitute-keyword-arguments (package-arguments recoll) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~(list)) #~(cons* "-Dqtgui=false" "-Dx11mon=false" #$flags)) ((#:phases phases #~%standard-phases) diff --git a/gnu/packages/selinux.scm b/gnu/packages/selinux.scm index df13a7935a..08b0c09fd5 100644 --- a/gnu/packages/selinux.scm +++ b/gnu/packages/selinux.scm @@ -142,7 +142,7 @@ module into a binary representation.") (name "libselinux") (outputs '("out" "python")) (arguments - (substitute-keyword-arguments (package-arguments libsepol) + (substitute-keyword-arguments arguments ((#:make-flags flags) #~(cons* "PYTHON=python3" (string-append "LIBSEPOLA=" @@ -197,7 +197,7 @@ the core SELinux management utilities.") (package/inherit libsepol (name "libsemanage") (arguments - (substitute-keyword-arguments (package-arguments libsepol) + (substitute-keyword-arguments arguments ((#:make-flags flags) #~(cons* "PYTHON=python3" (string-append "PYTHONLIBDIR=" @@ -236,7 +236,7 @@ binary policies.") (package/inherit libsepol (name "secilc") (arguments - (substitute-keyword-arguments (package-arguments libsepol) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'portability) @@ -255,7 +255,7 @@ binary policies.") (package/inherit libsepol (name "python-sepolgen") (arguments - (substitute-keyword-arguments (package-arguments libsepol) + (substitute-keyword-arguments arguments ((#:modules _ #~%default-gnu-modules) '((srfi srfi-1) (guix build gnu-build-system) diff --git a/gnu/packages/serialization.scm b/gnu/packages/serialization.scm index 3f1eebd17c..1aaf489a8b 100644 --- a/gnu/packages/serialization.scm +++ b/gnu/packages/serialization.scm @@ -326,7 +326,7 @@ that implements both the msgpack and msgpack-rpc specifications.") (package/inherit lua-libmpack (name "lua5.1-libmpack") (arguments - (substitute-keyword-arguments (package-arguments lua-libmpack) + (substitute-keyword-arguments arguments ((#:make-flags flags) `(let* ((lua-version ,(package-version lua-5.1)) (lua-major+minor ,(version-major+minor (package-version lua-5.1)))) @@ -346,7 +346,7 @@ that implements both the msgpack and msgpack-rpc specifications.") (package/inherit lua-libmpack (name "lua5.2-libmpack") (arguments - (substitute-keyword-arguments (package-arguments lua-libmpack) + (substitute-keyword-arguments arguments ((#:make-flags flags) `(let* ((lua-version ,(package-version lua-5.2)) (lua-major+minor ,(version-major+minor (package-version lua-5.2)))) @@ -971,7 +971,7 @@ game development and other performance-critical applications.") (sha256 (base32 "0cd12dvkzqdafz46q4302mzgpzbz589zmmiga7bq07f2sqy4vrvv")))) (arguments - (substitute-keyword-arguments (package-arguments flatbuffers) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append #$flags '("-DCMAKE_POSITION_INDEPENDENT_CODE=ON")))))))) diff --git a/gnu/packages/simulation.scm b/gnu/packages/simulation.scm index 9b6e80696e..b35470352a 100644 --- a/gnu/packages/simulation.scm +++ b/gnu/packages/simulation.scm @@ -650,7 +650,7 @@ problems for efficient solution on parallel systems.") (let ((parent (package (inherit openfoam-org) (version (package-version this-package))))) - (substitute-keyword-arguments (package-arguments parent) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'disable-failing-tests)))))) diff --git a/gnu/packages/sqlite.scm b/gnu/packages/sqlite.scm index b607227bb7..ab9745809f 100644 --- a/gnu/packages/sqlite.scm +++ b/gnu/packages/sqlite.scm @@ -126,7 +126,7 @@ is in the public domain.") (base32 "19bc2inw7f9fn0y6j3b57w4mk6bzi2q8hp5yn6qyd8kav7ynvqj2")))) (arguments - (substitute-keyword-arguments (package-arguments sqlite) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f) ((#:configure-flags flags #~(list)) diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm index a01ea94c3b..6a505f4714 100644 --- a/gnu/packages/ssh.scm +++ b/gnu/packages/ssh.scm @@ -374,7 +374,7 @@ Additionally, various channel-specific options can be negotiated.") (file-name (git-file-name name version)) (sha256 (base32 "13g7b652rf9lqlp492fiyi8ypf04v65ar3z174gjmkskl77m4b7k")))) (arguments - (substitute-keyword-arguments (package-arguments openssh) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~(list)) #~(cons* "--with-privsep-user=sshd" "--with-pam-service=sshd" diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index 1ad9c34bbd..f774bf2b40 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -803,7 +803,7 @@ posteriors and evidences.") (package (inherit r-with-tests) (name "r-minimal") (arguments - (substitute-keyword-arguments (package-arguments r-with-tests) + (substitute-keyword-arguments arguments ((#:tests? #f #f) #f) ((#:disallowed-references refs '()) (cons (this-package-native-input "perl") refs)) diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm index 9f50321aff..8c47907fda 100644 --- a/gnu/packages/suckless.scm +++ b/gnu/packages/suckless.scm @@ -510,7 +510,7 @@ drawing.") (sha256 (base32 "1cqnl8zlxccqg0901gx21h06j9wk3ja6lr8wp4k85ni4msf4m09g")))) (arguments - (substitute-keyword-arguments (package-arguments st) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'remove-calls-to-git @@ -1456,7 +1456,7 @@ until the screensaver should be activated.") (inherit lib9) (name "9yacc") (arguments - (substitute-keyword-arguments (package-arguments lib9) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'patch 'patch-for-9yacc @@ -1487,7 +1487,7 @@ generator."))) (inherit 9yacc) (name "9base") (arguments - (substitute-keyword-arguments (package-arguments 9yacc) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'patch-for-9yacc 'patch-for-9base diff --git a/gnu/packages/swift.scm b/gnu/packages/swift.scm index 27daa33ee6..48597b6bdb 100644 --- a/gnu/packages/swift.scm +++ b/gnu/packages/swift.scm @@ -131,7 +131,7 @@ Swift-specific modifications, required to build Swift 4.2.4.") (base32 "1405irbglx933i6jc8546gcrgb3y3703h66jm1jnd6acgfyg74ly")))) (arguments - (substitute-keyword-arguments (package-arguments swift-cmark) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'install-cmake-exports))))))) @@ -389,7 +389,7 @@ a previous Swift compiler.") (version %swift-6.2-version) (source %swift-6.2-source) (arguments - (substitute-keyword-arguments (package-arguments swift-bootstrap) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append (cons (string-append "-DCMAKE_INSTALL_RPATH=" #$output "/lib/swift/linux:" diff --git a/gnu/packages/telegram.scm b/gnu/packages/telegram.scm index ef81715a08..ecfe6e85a1 100644 --- a/gnu/packages/telegram.scm +++ b/gnu/packages/telegram.scm @@ -486,7 +486,7 @@ support for high performance Telegram Bot creation.") (inherit base) (name "tde2e") (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:tests? _ #f) #f) ((#:configure-flags flags #~'()) #~(list "-DTD_E2E_ONLY=ON"))))))) diff --git a/gnu/packages/telephony.scm b/gnu/packages/telephony.scm index b883e8a6e3..6746a5f545 100644 --- a/gnu/packages/telephony.scm +++ b/gnu/packages/telephony.scm @@ -896,7 +896,7 @@ Initiation Protocol (SIP) and a multimedia framework.") (base32 "1n5k1pk8v2rbq8gnhnpck6m9ljyl9ynr5bbyy2k1ln1nmdjn909n")))) (arguments - (substitute-keyword-arguments (package-arguments pjproject) + (substitute-keyword-arguments arguments ((#:configure-flags _ ''()) ;; This package is tailored for DhtNet; see how it is built for its ;; CI in diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index febcf97ed9..6763f1ff7b 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -2219,7 +2219,7 @@ ligatures, but also offers additional control over them.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("afm2pl")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-afm2pl" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -2515,7 +2515,7 @@ extensions of TeX, itself developed for e-TeX.") (inherit texlive-bin) (name "texlive-aleph-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--disable-web2c" "--enable-aleph" @@ -5173,7 +5173,7 @@ other parts.") (delete-other-directories "utils" '("autosp")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-autosp" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -5257,7 +5257,7 @@ the pdf code inserted in the output file. The processing involves a run of (delete-other-directories "utils" '("axodraw2")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-axodraw2" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -12149,7 +12149,7 @@ supported.") (delete-other-directories "utils/" '()) (delete-other-directories "texk/" '("cjkutils")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-cjkutils-x" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -20717,7 +20717,7 @@ create a PDF of your score.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("gregorio")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-gregorio" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -22329,7 +22329,7 @@ TeX to format a document for nearly-arbitrary values of @code{\\hsize} and (inherit texlive-bin) (name "texlive-hitex-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--disable-web2c" "--enable-hitex" @@ -27940,7 +27940,7 @@ those who prefer its language.") (delete-other-directories "utils" '("m-tx")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-m-tx" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -30270,7 +30270,7 @@ source file. This should be used before using @code{\\TransformNotes}.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("musixtnt")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-musixtnt" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -32298,7 +32298,7 @@ Omega (and Aleph) ideas include Omega-2 and LuaTeX.") (inherit texlive-bin) (name "texlive-omegaware-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-web2c" #$flags)) ((#:phases phases) @@ -33979,7 +33979,7 @@ a score.") (delete-other-directories "utils" '("pmx")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-pmx" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -43229,7 +43229,7 @@ fonts, in both Metafont and Type 1 formats.") (delete-other-directories "utils" '("devnag")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-devnag" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -43393,7 +43393,7 @@ the end of a line.") (delete-other-directories "utils" '("vlna")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-vlna" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -44746,7 +44746,7 @@ order are controlled by an external configuration file.") (scandir "." (lambda (f) (not (member f '("." ".." "texmf.cnf"))))))))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--enable-bibtex-x" "--enable-bibtex8" @@ -44814,7 +44814,7 @@ supported via the ICU library.") (inherit texlive-bibtex8-bin) (name "texlive-bibtexu-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bibtex8-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--enable-bibtexu" "--disable-bibtex8" @@ -44996,7 +44996,7 @@ Filters are also provided for checking the LaTeX parts of CWEB documents.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("chktex")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-chktex" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -45536,7 +45536,7 @@ Kubowicz's OpenDetex as its successor.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("detex")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-detex" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -45705,7 +45705,7 @@ which is readily readable by humans. The DTL bundle contains an assembler (delete-other-directories "utils" '()) (delete-other-directories "texk" '("dtl")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dtl" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -45827,7 +45827,7 @@ the document.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("dvi2tty")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dvi2tty" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -45911,7 +45911,7 @@ drivers (much like DVItype).") (inherit texlive-bin) (name "texlive-dvicopy-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-web2c" #$flags)) ((#:phases phases) @@ -45982,7 +45982,7 @@ exclusions.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("dvidvi")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dvidvi" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -46089,7 +46089,7 @@ file. It also supports XeTeX XDV format.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("dviljk")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dviljk" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -46165,7 +46165,7 @@ transforms between a DVI file and a text file.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("dviout-util" "tests")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dviout-util" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -46243,7 +46243,7 @@ not read the postamble, so it can be started before TeX finishes.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("dvipng")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dvipng" (delete "--disable-web2c" #$flags))) ((#:phases phases) @@ -46326,7 +46326,7 @@ and @samp{y} location.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("dvipos")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dvipos" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -46436,7 +46436,7 @@ support SVG fonts are enabled to render the graphics properly.") ;; be preserved. (delete-other-directories "texk/dvipsk" '("testdata") #t))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dvisvgm" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -47256,7 +47256,7 @@ file and generates a VPL file.") (inherit texlive-bin) (name "texlive-fontware-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-web2c" #$flags)) ((#:phases phases) @@ -49344,7 +49344,7 @@ distributed as package @code{pTeX-manual}.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("makejvf" "mendexk" "web2c")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--enable-makejvf" "--enable-mendexk" @@ -50655,7 +50655,7 @@ also process original LaTeX with @code{\\inputenc@{utf8@}} and Babel (inherit texlive-bin) (name "texlive-uptex-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-web2c" #$flags)) ((#:phases phases) @@ -51206,7 +51206,7 @@ a Type 1 font. (delete-other-directories "utils" '()) (delete-other-directories "texk" '("lcdf-typetools")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-lcdf-typetools" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -52047,7 +52047,7 @@ does pdfTeX.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("dvipdfm-x")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dvipdfm-x" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -52139,7 +52139,7 @@ PostScript.") (scandir "." (lambda (f) (not (member f '("." ".." "texmf.cnf"))))))))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-dvipsk" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -52244,7 +52244,7 @@ generated code can be included in any LaTeX document.") (delete-other-directories "utils" '("lacheck")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-lacheck" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -52779,7 +52779,7 @@ without HarfBuzz.") (inherit texlive-bin) (name "texlive-luajittex-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--disable-web2c" "--enable-luajithbtex" @@ -52927,7 +52927,7 @@ MFLua without any modification to produce exactly the same result.") (inherit texlive-bin) (name "texlive-mflua-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--disable-web2c" "--enable-mflua" @@ -53173,7 +53173,7 @@ that can be used by the TeX 82 hyphenation algorithm.") (inherit texlive-bin) (name "texlive-patgen-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-web2c" #$flags)) ((#:phases phases) @@ -53591,7 +53591,7 @@ SeeTeX project. (delete-other-directories "utils" '()) (delete-other-directories "texk" '("seetexk")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-seetexk" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -55600,7 +55600,7 @@ processing the output of Metafont.") (inherit texlive-bin) (name "texlive-mfware-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-web2c" #$flags)) ((#:phases phases) @@ -56798,7 +56798,7 @@ produce bounding box values for Rawppm or Rawpbm format files.") (delete-other-directories "utils" '("ps2eps")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-ps2eps" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -56885,7 +56885,7 @@ documents generated that use Type 1 fonts.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("ps2pk")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-ps2pk" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -56985,7 +56985,7 @@ printing. Utilities include @command{psbook}, @command{psselect}, (delete-other-directories "utils" '()) (delete-other-directories "texk" '("psutils")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-psutils" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -58254,7 +58254,7 @@ and -editable format; (delete-other-directories "texk" '()) (delete-other-directories "utils" '("t1utils")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-t1utils" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -58638,7 +58638,7 @@ such as @code{gellmu}.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("tex4htk")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-tex4htk" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -59337,7 +59337,7 @@ and vice versa.") (inherit texlive-bin) (name "texlive-texware-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-web2c" #$flags)) ((#:phases phases) @@ -61603,7 +61603,7 @@ is planned.") (delete-other-directories "utils" '("tpic2pdftex")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--enable-tpic2pdftex" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -61762,7 +61762,7 @@ emulates the macro, using TikZ.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("ttfdump" "ttf2pk2")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--enable-ttfdump" "--enable-ttf2pk2" @@ -61938,7 +61938,7 @@ Zhuyin) for Chinese Han scripts (Hanzi ideographs). (delete-other-directories "utils/" '()) (delete-other-directories "texk/" '("upmendex")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-upmendex" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -62392,7 +62392,7 @@ command line or from within a (shell) script. The programs work with (delete-other-directories "utils" '("xpdfopen")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-xpdfopen" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -64027,7 +64027,7 @@ dealing with Type 1 fonts, direct.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("gsftopk")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-gsftopk" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -64230,7 +64230,7 @@ MusiXTeX processing.") (delete-other-directories "utils" '("xml2pmx")) (delete-other-directories "texk" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-xml2pmx" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -72981,7 +72981,7 @@ always (re)defines a command. There is also @code{\\makeenvironment} and (delete-other-directories "texk" '("makeindexk" "tests")) (delete-other-directories "utils" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-makeindexk" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -76895,7 +76895,7 @@ than the bitmaps Metafont creates.") (inherit texlive-bin) (name "texlive-metapost-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-web2c" #$flags)) ((#:phases phases) @@ -79131,7 +79131,7 @@ package, such as @command{natbib} as well).") (inherit texlive-bin) (name "texlive-bibtex-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--enable-web2c" #$flags)) ((#:phases phases) @@ -93841,7 +93841,7 @@ in terms of the collating order of the text being processed.") (delete-other-directories "utils/" '("xindy")) (delete-other-directories "texk/" '()))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--enable-xindy" (delete "--enable-web2c" #$flags))) ((#:phases phases) @@ -97497,7 +97497,7 @@ that it will build with web2c out of the box.") (delete-other-directories "utils" '()) (delete-other-directories "texk" '("xdvik")))))) (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "CFLAGS=-g -O2 -Wno-error=incompatible-pointer-types" @@ -97613,7 +97613,7 @@ which is ordinarily processed by a tightly bound processor (called (inherit texlive-bin) (name "texlive-xetex-bin") (arguments - (substitute-keyword-arguments (package-arguments texlive-bin) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "--disable-web2c" "--enable-xetex" diff --git a/gnu/packages/texinfo.scm b/gnu/packages/texinfo.scm index 09a1550c73..18971ea6a7 100644 --- a/gnu/packages/texinfo.scm +++ b/gnu/packages/texinfo.scm @@ -144,7 +144,7 @@ is on expressing the content semantically, avoiding physical markup commands.") perl-unicode-eastasianwidth perl-text-unidecode perl-libintl-perl))) (arguments - (substitute-keyword-arguments (package-arguments texinfo) + (substitute-keyword-arguments arguments ((#:modules modules `((guix build utils) (guix build gnu-build-system))) `((srfi srfi-26) @@ -228,7 +228,7 @@ is on expressing the content semantically, avoiding physical markup commands.") (name "info-reader") (arguments (append - (substitute-keyword-arguments (package-arguments texinfo-7) + (substitute-keyword-arguments arguments ((#:modules modules `((guix build utils) (guix build gnu-build-system))) `((srfi srfi-1) diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm index 723671e7c8..b1bad51338 100644 --- a/gnu/packages/text-editors.scm +++ b/gnu/packages/text-editors.scm @@ -1418,7 +1418,7 @@ more.") (delete "guile") (prepend curl))) (arguments - (substitute-keyword-arguments (package-arguments texmacs) + (substitute-keyword-arguments arguments ((#:phases orig) #~(modify-phases #$orig ;; The non-deterministic compression issue is solved in Mogan. diff --git a/gnu/packages/textutils.scm b/gnu/packages/textutils.scm index 9dc4044bbd..d708808843 100644 --- a/gnu/packages/textutils.scm +++ b/gnu/packages/textutils.scm @@ -262,7 +262,7 @@ case-folding, and other operations for data in the UTF-8 encoding.") (if (this-package-native-input "julia") (strip-keyword-arguments '(#:tests?) - (substitute-keyword-arguments (package-arguments utf8proc-bootstrap) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-before 'check 'check-data @@ -272,7 +272,7 @@ case-folding, and other operations for data in the UTF-8 encoding.") (string-append "data/" i))) '("NormalizationTest.txt" "GraphemeBreakTest.txt" "DerivedCoreProperties.txt")))))))) - (substitute-keyword-arguments (package-arguments utf8proc-bootstrap) + (substitute-keyword-arguments arguments ((#:tests? _ #t) #f)))) (properties (alist-delete 'hidden? (package-properties utf8proc-bootstrap))))) diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm index 7870277e21..ec45a42f7e 100644 --- a/gnu/packages/tls.scm +++ b/gnu/packages/tls.scm @@ -1011,7 +1011,7 @@ coding footprint.") (hidden-package (package/inherit mbedtls (arguments - (substitute-keyword-arguments (package-arguments mbedtls) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-before 'configure 'configure-extra-features @@ -1181,7 +1181,7 @@ ciphers such as ChaCha20, Curve25519, NTRU, and Blake2b.") (package/inherit wolfssl (name "wolfssl-for-rpcs3") (arguments - (substitute-keyword-arguments (package-arguments wolfssl) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons* "--enable-des3" "--enable-pwdbased" diff --git a/gnu/packages/toolkits.scm b/gnu/packages/toolkits.scm index 69c097bbcd..3b730e4df9 100644 --- a/gnu/packages/toolkits.scm +++ b/gnu/packages/toolkits.scm @@ -177,7 +177,7 @@ standard operating system features.") (base32 "02a7b05zrka20jhzag2jb4jl624i1m456bsv69jb9zgys2p9dv1n")))) (arguments - (substitute-keyword-arguments (package-arguments imgui) + (substitute-keyword-arguments arguments ((#:make-flags flags ''()) ;; Remove "-DImDrawIdx=unsigned int" and "-DIMGUI_ENABLE_FREETYPE" ;; from make-flags as this breaks MangoHud, the only user of this diff --git a/gnu/packages/tor-browsers.scm b/gnu/packages/tor-browsers.scm index 03f51dc8da..30aa4b23a3 100644 --- a/gnu/packages/tor-browsers.scm +++ b/gnu/packages/tor-browsers.scm @@ -878,7 +878,7 @@ Mullvad Browser.") (base32 "0sj87q0x1lfkvhbz154dabmgm8l18j9d1h1xhyqlmwz3whz1hsfi")))) (arguments - (substitute-keyword-arguments (package-arguments mullvadbrowser-base) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'ublock-private-allowed diff --git a/gnu/packages/tor.scm b/gnu/packages/tor.scm index 55e2836936..f93c2b8ed5 100644 --- a/gnu/packages/tor.scm +++ b/gnu/packages/tor.scm @@ -148,7 +148,7 @@ instead.") (inherit tor) (name "tor-client") (arguments - (substitute-keyword-arguments (package-arguments tor) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append #$flags (list "--disable-module-relay"))))) @@ -380,7 +380,7 @@ OnionShare.") (inherit onionshare-cli) (name "onionshare") (arguments - (substitute-keyword-arguments (package-arguments onionshare-cli) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'absolutize diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 650cf76ac8..ff18e39643 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -619,7 +619,7 @@ everything from small to very large projects with speed and efficiency.") "subtree" ;git-subtree "gui")) ;gitk, git gui (arguments - (substitute-keyword-arguments (package-arguments git-minimal) + (substitute-keyword-arguments arguments ((#:disallowed-references disallowed-refs ''()) (list (this-package-native-input "bash"))) ((#:make-flags flags #~'()) @@ -835,7 +835,7 @@ everything from small to very large projects with speed and efficiency.") "0if0vqn3fj22p95a0125zpgwz3mqfqxqnvwa7fkf7b00wh0c1wyz")))) ;; Temporary measure to prevent unnecessary package rebuilds. (arguments - (substitute-keyword-arguments (package-arguments git-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) (if (%current-target-system) git-cross-configure-flags #~(list))))))) @@ -1868,7 +1868,7 @@ a built-in cache to decrease server I/O pressure.") (base32 "0yp6rm60pz8pj8wrm1aglix51hhy00al86mm94ag2bifc92q23ar")))) (arguments - (substitute-keyword-arguments (package-arguments cgit) + (substitute-keyword-arguments arguments ((#:tests? _ #f) (not (%current-target-system))) ((#:make-flags _ '()) diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index 2efae93d7a..e2bcdd7bbf 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -1994,7 +1994,7 @@ audio/video codec library.") "ffmpeg-add-av_stream_get_first_dts-for-chromium.patch")))) (arguments (if (target-x86-32?) - (substitute-keyword-arguments (package-arguments ffmpeg) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-before 'configure 'relax-gcc-14-strictness @@ -2018,7 +2018,7 @@ audio/video codec library.") (base32 "1g8116rp4fgq82br8lclb2dmw3fvyh2zkzhnngm7z97pg1i0dypl")))) (arguments - (substitute-keyword-arguments (package-arguments ffmpeg-6) + (substitute-keyword-arguments arguments ((#:modules modules %default-gnu-modules) `((srfi srfi-1) ,@modules)) ((#:phases phases) @@ -2047,7 +2047,7 @@ audio/video codec library.") (base32 "05q6bpid5hfr9djp6cf3sq8majkjiqnl3v9i2y0an23w8qgld412")))) (arguments - (substitute-keyword-arguments (package-arguments ffmpeg-5) + (substitute-keyword-arguments arguments ((#:configure-flags flags ''()) #~(cons "--enable-avresample" (fold delete #$flags '("--enable-libshaderc")))))))) @@ -2078,7 +2078,7 @@ audio/video codec library.") "ffmpeg-jami-screen-sharing-x11-fix.patch" "ffmpeg-jami-pipewiregrab-source-filter.patch")))))) (arguments - (substitute-keyword-arguments (package-arguments ffmpeg) + (substitute-keyword-arguments arguments ((#:configure-flags _ '()) ;; The base configure flags preserved from ffmpeg appear first. #~(list "--disable-static" @@ -4206,7 +4206,7 @@ be used for realtime video capture via Linux-specific APIs.") (package/inherit v4l-utils (name "v4l-utils-minimal") (arguments - (substitute-keyword-arguments (package-arguments v4l-utils) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'split))) @@ -5264,7 +5264,7 @@ Content System specification.") (append zimg) (replace "svt-av1" svt-av1-3))) (arguments - (substitute-keyword-arguments (package-arguments ffmpeg) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append #$flags (list "--enable-gpl" @@ -5298,7 +5298,7 @@ Content System specification.") (package (inherit x265) (arguments - (substitute-keyword-arguments (package-arguments x265) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'apply-handbrake-patches diff --git a/gnu/packages/vim.scm b/gnu/packages/vim.scm index a43e797f9f..047a0bcb69 100644 --- a/gnu/packages/vim.scm +++ b/gnu/packages/vim.scm @@ -241,7 +241,7 @@ with the editor vim."))) "--enable-xim" "--disable-selinux" "--enable-gui") - ,@(substitute-keyword-arguments (package-arguments vim) + ,@(substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (add-before 'check 'skip-some-more-tests diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index d4a6016f08..c47fe8348b 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -638,7 +638,7 @@ server and embedded PowerPC, and S390 guests.") (synopsis "Machine emulator and virtualizer (without GUI or docs) for the host architecture") (arguments - (substitute-keyword-arguments (package-arguments qemu) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags #~'()) ;; Restrict to the host's architecture. (let* ((system (or (%current-target-system) @@ -2083,7 +2083,7 @@ client desktops. libxrender libxtst))) (arguments - (substitute-keyword-arguments (package-arguments vmware-open-vm-tools) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(delete "--without-x" #$flags)))) (description "This package provides a GTK+ support for @code{open-vm-tools}."))) @@ -3786,7 +3786,7 @@ disks, resizing disks, and much more.") (package/inherit libguestfs-minimal (name "libguestfs") (arguments - (substitute-keyword-arguments (package-arguments libguestfs-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(append (filter diff --git a/gnu/packages/webkit.scm b/gnu/packages/webkit.scm index 795218a0b2..2455bf8968 100644 --- a/gnu/packages/webkit.scm +++ b/gnu/packages/webkit.scm @@ -303,7 +303,7 @@ propagated by default) such as @code{gst-plugins-good} and (package/inherit webkitgtk (name "webkitgtk-for-gtk3") (arguments - (substitute-keyword-arguments (package-arguments webkitgtk) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons* "-DUSE_GTK4=OFF" (delete "-DUSE_GTK4=ON" #$flags))))) @@ -320,7 +320,7 @@ propagated by default) such as @code{gst-plugins-good} and (define-public webkitgtk-with-libsoup2 (package/inherit webkitgtk-for-gtk3 (name "webkitgtk-with-libsoup2") - (arguments (substitute-keyword-arguments (package-arguments webkitgtk-for-gtk3) + (arguments (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "-DUSE_SOUP2=ON" #$flags)))) (propagated-inputs @@ -339,7 +339,7 @@ propagated by default) such as @code{gst-plugins-good} and (sha256 (base32 "0bzv2h25qr7h0r8likdb8g248qvsilf41cj7prf1avghfr1pzjdg")))) (arguments - (substitute-keyword-arguments (package-arguments webkitgtk) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "-DPORT=WPE" (delete "-DPORT=GTK" #$flags))))) diff --git a/gnu/packages/wine.scm b/gnu/packages/wine.scm index c0ac91c5ab..44d6065b6f 100644 --- a/gnu/packages/wine.scm +++ b/gnu/packages/wine.scm @@ -210,7 +210,7 @@ integrate Windows applications into your desktop.") wayland wayland-protocols)) (arguments - (substitute-keyword-arguments (package-arguments wine-minimal) + (substitute-keyword-arguments arguments ((#:configure-flags _ '()) #~'()))))) (define-public wine64 @@ -312,7 +312,7 @@ integrate Windows applications into your desktop.") (modify-inputs (package-native-inputs wine) (prepend python-3))) (arguments - (substitute-keyword-arguments (package-arguments wine) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (delete 'patch-SHELL) diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm index 13aba49956..99b75f608e 100644 --- a/gnu/packages/wm.scm +++ b/gnu/packages/wm.scm @@ -2817,7 +2817,7 @@ modules for building a Wayland compositor.") (propagated-inputs (modify-inputs (package-propagated-inputs wlroots) (delete libdisplay-info))) (arguments - (substitute-keyword-arguments (package-arguments wlroots) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases ;; Required to fix build with GCC >= 15. @@ -3338,7 +3338,7 @@ core/thread.") (package/inherit base (name "waybar-experimental") (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:configure-flags flags '()) #~(cons "-Dexperimental=true" #$flags)))) @@ -3621,7 +3621,7 @@ productive, customizable lisp based systems.") (inputs (list sbcl-slynk stumpwm)) (arguments - (substitute-keyword-arguments (package-arguments stumpwm) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (replace 'build-program @@ -4195,7 +4195,7 @@ wasting your precious memory.") (modify-inputs (package-inputs lemonbar) (prepend freetype libxft libx11))) (arguments - (substitute-keyword-arguments (package-arguments lemonbar) + (substitute-keyword-arguments arguments ((#:make-flags make-flags) #~(#$@make-flags (format #f "CFLAGS=~a -DVERSION='~s'" diff --git a/gnu/packages/wxwidgets.scm b/gnu/packages/wxwidgets.scm index 0bf2d7e4a2..3563e26385 100644 --- a/gnu/packages/wxwidgets.scm +++ b/gnu/packages/wxwidgets.scm @@ -183,7 +183,7 @@ and many other languages.") (delete "gtk+") (prepend gtk+-2))) (arguments - (substitute-keyword-arguments (package-arguments wxwidgets) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(append #$flags '("--with-gtk=2"))))))) @@ -198,7 +198,7 @@ and many other languages.") (package/inherit wxwidgets (name "wxwidgets-sans-egl") (arguments - (substitute-keyword-arguments (package-arguments wxwidgets) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "--disable-glcanvasegl" #$flags)))))) @@ -268,7 +268,7 @@ and many other languages.") (native-inputs (modify-inputs (package-native-inputs wxwidgets-sans-egl) (prepend nanosvg))) (arguments - (substitute-keyword-arguments (package-arguments wxwidgets-sans-egl) + (substitute-keyword-arguments arguments ((#:phases phases) #~(modify-phases #$phases (add-after 'unpack 'copy-nanosvg-source diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm index e611cc3bd5..776a06f372 100644 --- a/gnu/packages/xml.scm +++ b/gnu/packages/xml.scm @@ -292,7 +292,7 @@ project (but it is usable outside of the Gnome platform).") (hidden-package (package/inherit libxml2 (arguments - (substitute-keyword-arguments (package-arguments libxml2) + (substitute-keyword-arguments arguments ((#:configure-flags flags #~'()) #~(cons "--with-zlib" #$flags))))))) diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm index 05f51eeb54..608a24f9fb 100644 --- a/gnu/packages/xorg.scm +++ b/gnu/packages/xorg.scm @@ -1224,7 +1224,7 @@ themselves.") (package/inherit libpciaccess (name "libpciaccess-static") (arguments - (substitute-keyword-arguments (package-arguments libpciaccess) + (substitute-keyword-arguments arguments ((#:configure-flags flags) #~(cons "-Ddefault_library=static" #$flags)))) (propagated-inputs @@ -6738,7 +6738,7 @@ and embedded platforms.") (modify-inputs (package-inputs uim) (prepend gtk+))) (arguments - (substitute-keyword-arguments (package-arguments uim) + (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) #~(append #$configure-flags (list "CFLAGS=-O2 -g -fcommon"))))) diff --git a/gnu/packages/zig-xyz.scm b/gnu/packages/zig-xyz.scm index 06951d3658..11d17e527a 100644 --- a/gnu/packages/zig-xyz.scm +++ b/gnu/packages/zig-xyz.scm @@ -386,7 +386,7 @@ across several operating systems.") (sha256 (base32 "1ilq3hqprrwpbz7ckp01g4ksl41jq57rd7zf622w3immy6apc8k2")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:zig _ #f) zig-0.14)))))) (define-public zig-known-folders-for-zls-0.15 @@ -407,7 +407,7 @@ across several operating systems.") (sha256 (base32 "1bwv7kndr4lv7khrrjwg2vgg3cy41y28rmv7rbv7jy06shqy4nzq")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:zig _ #f) zig-0.15)))))) (define-public zig-pixman diff --git a/gnu/packages/zig.scm b/gnu/packages/zig.scm index 3801ac8ad5..089305ef8a 100644 --- a/gnu/packages/zig.scm +++ b/gnu/packages/zig.scm @@ -362,7 +362,7 @@ toolchain. Among other features it provides version commit "08pm3f4hh6djl3szhqgm7fa3qisdl2xh9jrp18m0z7bk2vd0bzw7")) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ;; Patch for fixing RUNPATH not applied to intermediate versions. ((#:validate-runpath? _ #t) #f) ;; Patch for cross-compilation not applied to intermediate versions. @@ -439,7 +439,7 @@ toolchain. Among other features it provides "1qsfsv8wg0kz616sgj7dw9ihdz5rsm80p3ambl5lnkrjhwym7z7x")) (patches (search-patches "zig-0.10.0-675-TypeOf-hack.patch")))) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'unpack 'set-host-triple @@ -488,7 +488,7 @@ toolchain. Among other features it provides version commit "0829wymcwph71zlwql6v7i7j9gr1m96acyp2xsr69vq2h98wmlap")) (arguments - (substitute-keyword-arguments (package-arguments base) + (substitute-keyword-arguments arguments ((#:phases phases '%standard-phases) #~(modify-phases #$phases (replace 'prepare-source diff --git a/gnu/packages/zile.scm b/gnu/packages/zile.scm index 3adf470853..b5cf260ee7 100644 --- a/gnu/packages/zile.scm +++ b/gnu/packages/zile.scm @@ -137,7 +137,7 @@ default Emacs configuration, but it carries a much lighter feature set.") ,@(package-native-inputs zile))) (arguments - (substitute-keyword-arguments (package-arguments zile) + (substitute-keyword-arguments arguments ((#:phases phases) `(modify-phases ,phases (replace 'bootstrap