json.writer: slightly faster using first2.

diff --git a/basis/json/writer/writer.factor b/basis/json/writer/writer.factor
index 20b84cf6386bdf2b78747fe7521452c6a685ac19..165bd8638725792ccf5ab7fd56b9e7a081053493 100644 (file)
--- a/basis/json/writer/writer.factor
+++ b/basis/json/writer/writer.factor
@@ -53,14 +53,18 @@ TR: jsvar-encode "-" "_" ;
         jsvar-encode? get [
             [ CHAR: , write1 ]
             [
-                [ first jsvar-encode json-print ]
-                [ CHAR: : write1 second json-print ] bi
+                first2
+                [ jsvar-encode json-print ]
+                [ CHAR: : write1 json-print ]
+                bi*
             ] interleave
         ] [
             [ CHAR: , write1 ]
             [
-                [ first json-print ]
-                [ CHAR: : write1 second json-print ] bi
+                first2
+                [ json-print ]
+                [ CHAR: : write1 json-print ]
+                bi*
             ] interleave
         ] if
     ] unless-empty CHAR: } write1 ;