factor: remove extra whitespace

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

diff --git a/basis/json/json.factor b/basis/json/json.factor
index 1e6bf5cb4ae956fcb5c2580af7adc268340f1cd3..4da7e9c88f25901df447c24acdbcc4cf150547a2 100644 (file)
--- a/basis/json/json.factor
+++ b/basis/json/json.factor
@@ -134,7 +134,7 @@ DEFER: (read-json-string)
         { CHAR: t  [ "rue" pick json-expect t suffix! ] }
         { CHAR: f  [ "alse" pick json-expect f suffix! ] }
         { CHAR: n  [ "ull" pick json-expect json-null suffix! ] }
-        [ pick json-number [ suffix! ] dip [ scan ] when*  ]
+        [ pick json-number [ suffix! ] dip [ scan ] when* ]
     } case ;
 
 : json-read-input ( stream -- objects )
@@ -143,7 +143,7 @@ DEFER: (read-json-string)
         json-depth get zero? [ json-error ] unless
     ] with-variable ;
 
-: get-json ( objects  --  obj )
+: get-json ( objects -- obj )
     dup length 1 = [ first ] [ json-error ] if ;
 
 PRIVATE>
@@ -217,7 +217,7 @@ PRIVATE>
 M: string stream-json-print
     CHAR: \" over stream-write1 swap [
         {
-            { CHAR: \"  [ "\\\"" over stream-write ] }
+            { CHAR: \" [ "\\\"" over stream-write ] }
             { CHAR: \\ [ "\\\\" over stream-write ] }
             { CHAR: /  [
                 json-escape-slashes? get