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
|
#! Returns a string representing the factor object in JSON format
|
||||||
[ json-print ] with-string-writer ;
|
[ json-print ] with-string-writer ;
|
||||||
|
|
||||||
|
M: t json-print ( f -- )
|
||||||
|
drop "true" write ;
|
||||||
|
|
||||||
M: f json-print ( f -- )
|
M: f json-print ( f -- )
|
||||||
drop "false" write ;
|
drop "false" write ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue