me
/
guix
Archived
1
0
Fork 0

distro: Add missing bits from previous commit.

* distro/packages/base.scm (default-keyword-arguments): New procedure.
master
Ludovic Courtès 2012-10-11 00:32:17 +02:00
parent a3f75312ec
commit e300a0f8d2
1 changed files with 14 additions and 0 deletions

View File

@ -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