json: add special case and test for "-0" case

diff --git a/basis/json/json-tests.factor b/basis/json/json-tests.factor
index 0f8225d109191172e2a136861b2b13b7836ef556..469fe34aca8e721736988ab79bc0428e726d6c1a 100644 (file)
--- a/basis/json/json-tests.factor
+++ b/basis/json/json-tests.factor
@@ -33,6 +33,7 @@ IN: json.tests
 ! not widely supported by javascript, but allowed in the grammar, and a nice
 ! feature to get
 { -0.0 } [ "-0.0" json> ] unit-test
+{ -0.0 } [ "-0" json> ] unit-test
 
 { " fuzzy  pickles " } [ "  \" fuzzy  pickles \" "  json> ] unit-test
 { "while 1:\n\tpass" } [ "  \"while 1:\n\tpass\" "  json> ] unit-test

diff --git a/basis/json/json.factor b/basis/json/json.factor
index 021bfeb1f98262ba1fe6f50335832b4f4ed36360..2d70e2a6c9af1560c33db0f276ba0be4d49ae1ab 100644 (file)
--- a/basis/json/json.factor
+++ b/basis/json/json.factor
@@ -42,6 +42,7 @@ SYMBOL: json-depth
             { "Infinity" [ 1/0. ] }
             { "-Infinity" [ -1/0. ] }
             { "NaN" [ 0/0. ] }
+            { "-0" [ -0.0 ] }
             [ [ string>number ] [ not-a-json-number ] ?unless ]
         } case
     ] dip ;