amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

6
tests/utils.scm
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))