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

records: Add MATCH-RECORD-LAMBDA.

Browse source 
* guix/records.scm (match-record-lambda): New syntax.
* tests/records.scm ("match-record-lambda"): New test.

Signed-off-by: Josselin Poiret <dev@jpoiret.xyz>
This commit is contained in:
(unmatched-parenthesis ew syntax 2023-04-28 20:19:05 +01:00 • committed by Josselin Poiret
parent e6dc1d3996
commit 4cd5293621
No known key found for this signature in database
GPG key ID: 505E40B916171A8A
4 changed files with 27 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
tests/records.scm
View file

@ -590,4 +590,16 @@ Description: 1st line,
(match-record rec <with-thunked> (normal thunked)
(list normal thunked)))))
(test-equal "match-record-lambda"
'("thing: foo" "thing: bar")
(begin
(define-record-type* <with-text> with-text make-with-text
with-text?
(text with-text-text))
(map (match-record-lambda <with-text> (text)
(string-append "thing: " text))
(list (with-text (text "foo"))
(with-text (text "bar"))))))
(test-end)