tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-26 11:01:48 +02:00
Code Activity

utils: Add 'strip-keyword-arguments'.

Browse Source 
* guix/utils.scm (strip-keyword-arguments): New procedure.
* tests/utils.scm ("strip-keyword-arguments"): New test.
This commit is contained in:
Ludovic Courtès
2014-10-01 10:19:14 +02:00
parent b72a312c30
commit 5e1103821a
2 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/utils.scm
+6
View File
@@ -120,6 +120,12 @@
'(0 1 2 3)))
list))
(test-equal "strip-keyword-arguments"
'(a #:b b #:c c)
(strip-keyword-arguments '(#:foo #:bar #:baz)
'(a #:foo 42 #:b b #:baz 3
#:c c #:bar 4)))
(let* ((tree (alist->vhash
'((0 2 3) (1 3 4) (2) (3 5 6) (4 6) (5) (6))
hashq))