diff options
| -rw-r--r-- | distro/packages/base.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/distro/packages/base.scm b/distro/packages/base.scm index f2a93f8601..2fb67b62af 100644 --- a/distro/packages/base.scm +++ b/distro/packages/base.scm @@ -1388,6 +1388,20 @@ with the Linux kernel.") ;; The Guile used to run the build scripts of the initial derivations. (nixpkgs-derivation* "guile")) +(define (default-keyword-arguments args defaults) + "Return ARGS augmented with any keyword/value from DEFAULTS for +keywords not already present in ARGS." + (let loop ((defaults defaults) + (args args)) + (match defaults + ((kw value rest ...) + (loop rest + (if (assoc-ref kw args) + args + (cons* kw value args)))) + (() + args)))) + (define-syntax substitute-keyword-arguments (syntax-rules () "Return a new list of arguments where the value for keyword arg KW is |