fix serialization of t in json.writer
parent
a9f8856b0d
commit
5214923a35
|
@ -12,6 +12,9 @@ GENERIC: json-print ( obj -- )
|
|||
#! Returns a string representing the factor object in JSON format
|
||||
[ json-print ] with-string-writer ;
|
||||
|
||||
M: t json-print ( f -- )
|
||||
drop "true" write ;
|
||||
|
||||
M: f json-print ( f -- )
|
||||
drop "false" write ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue