JSON writer fix

2007-09-22 02:27:28 -04:00 · 2007-09-22 02:27:28 -04:00 · 88c2d21416
parent 7b45efc69d
commit 88c2d21416
1 changed files with 5 additions and 0 deletions
--- a/extra/json/writer/writer.factor
+++ b/extra/json/writer/writer.factor
@ -21,6 +21,11 @@ M: string json-print ( obj -- )
 M: number json-print ( num -- )  
  number>string write ;

+! sequence and number overlap, we provide an explicit
+! disambiguation method
+M: integer json-print ( num -- )  
+  number>string write ;
+
 M: sequence json-print ( array -- string ) 
  CHAR: [ write1 [ >json ] map "," join write CHAR: ] write1 ;