Repair embarrassing error in gen:custom-write for fields

This commit is contained in:
Tony Garnock-Jones 2021-06-21 14:40:00 +02:00
parent 1fb116630e
commit 1d43b731f3
1 changed files with 1 additions and 1 deletions

View File

@ -17,7 +17,7 @@
)
#:methods gen:custom-write
[(define (write-proc f port mode)
(fprintf f "#<field:~a:~a>" (field-id f) (field-name f)))]
(fprintf port "#<field:~a:~a:~s>" (field-id f) (field-name f) (field-value f)))]
#:property prop:procedure
(case-lambda
[(f)