From 5214923a35f97e7af3476b67522b3a5dae00640d Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 3 Dec 2008 09:51:42 -0800
Subject: [PATCH] fix serialization of t in json.writer

---
 basis/json/writer/writer.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/json/writer/writer.factor b/basis/json/writer/writer.factor
index cbcf426545..a7efe7ad0f 100644
--- 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 ;