summaryrefslogtreecommitdiff
path: root/guix/utils.scm
diff options
context:
space:
mode:
authorEric Bavier <bavier@member.fsf.org>2016-09-01 08:20:25 -0500
committerEric Bavier <bavier@member.fsf.org>2016-10-07 07:41:57 -0500
commit347df60158a11abbc9b84ac36cd113362d7e09e0 (patch)
treed4422b64e96438bf6dd17779f7ccd4609d02351f /guix/utils.scm
parentfb29e737d49a18d95588a820c048829096d921d1 (diff)
utils: Fix default-keyword-arguments.
* guix/utils.scm (default-keyword-arguments): Properly test for present keywords. * tests/utils.scm (default-keyword-arguments): New test.
Diffstat (limited to 'guix/utils.scm')
-rw-r--r--guix/utils.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/utils.scm b/guix/utils.scm
index c68094cf49..ded31142aa 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -369,7 +369,7 @@ keywords not already present in ARGS."
(match defaults
((kw value rest ...)
(loop rest
- (if (assoc-ref kw args)
+ (if (memq kw args)
args
(cons* kw value args))))
(()