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

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
4 changed files with 27 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/records.scm
+12
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)