Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / basis / json / writer / writer.factor

diff --git a/basis/json/writer/writer.factor b/basis/json/writer/writer.factor
index e374919039aedeb2bb0ab078552df33597b822a7..79c7542dbb4f47d063b5abc11a55590b3c9c64b7 100644 (file)
--- a/basis/json/writer/writer.factor
+++ b/basis/json/writer/writer.factor
@@ -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 ;