me
/
guix
Archived
1
0
Fork 0
Code

records: match-record: Do not show internal form. 

* guix/records.scm (lookup-field+wrapper): Attach source properties to the
field syntax object instead.
master
Josselin Poiret 2023-06-04 09:47:36 +02:00
parent 4cd5293621
commit f045c7ac80
No known key found for this signature in database
GPG Key ID: 505E40B916171A8A
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/records.scm
View File

@ -599,7 +599,8 @@ to thunked values. Raise a syntax violation when the field is not found."
((_ record field offset ()) ((_ record field offset ())
(syntax-violation 'match-record (syntax-violation 'match-record
"unknown record type field" "unknown record type field"
s #'field)) ;; Attach the local source data to the field.
(datum->syntax #f (syntax->datum #'field) #:source s)))
((_ record field offset ((head normal) tail ...)) ((_ record field offset ((head normal) tail ...))
(free-identifier=? #'field #'head) (free-identifier=? #'field #'head)
#'(values offset identity)) #'(values offset identity))