Repair embarrassing error in gen:custom-write for fields
This commit is contained in:
parent
1fb116630e
commit
1d43b731f3
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue