mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
records: `alist->record' supports multiple-field occurrences.
* guix/records.scm (alist->record): Add `multiple-value-keys'
parameter. Update docstring, and honor it.
* tests/records.scm ("alist->record"): New record.
This commit is contained in:
@@ -158,6 +158,12 @@ Version: 1.5
|
||||
(list (recutils->alist p)
|
||||
(recutils->alist p))))
|
||||
|
||||
(test-equal "alist->record" '((1 2) b c)
|
||||
(alist->record '(("a" . 1) ("b" . b) ("c" . c) ("a" . 2))
|
||||
list
|
||||
'("a" "b" "c")
|
||||
'("a")))
|
||||
|
||||
(test-end)
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user