jpoiret pushed a commit to branch master
in repository guix.
commit f045c7ac80d36777f885e8ecab7affcb2683eb36
Author: Josselin Poiret <[email protected]>
AuthorDate: Sun Jun 4 09:47:36 2023 +0200
records: match-record: Do not show internal form.
* guix/records.scm (lookup-field+wrapper): Attach source properties to the
field syntax object instead.
---
guix/records.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/records.scm b/guix/records.scm
index 2a88cb4b3c..6c9f29eb3e 100644
--- a/guix/records.scm
+++ b/guix/records.scm
@@ -599,7 +599,8 @@ to thunked values. Raise a syntax violation when the field
is not found."
((_ record field offset ())
(syntax-violation 'match-record
"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 ...))
(free-identifier=? #'field #'head)
#'(values offset identity))
