fix serialization of t in json.writer

db4
Joe Groff 2008-12-03 09:51:42 -08:00
parent a9f8856b0d
commit 5214923a35
1 changed files with 3 additions and 0 deletions

View File

@ -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 ;