From 6b3e416bc18ae8b8d1c5286be47b43ff9945da5a Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 11 Jul 2012 20:47:38 -0700 Subject: [PATCH] json.writer: slightly faster using first2. --- basis/json/writer/writer.factor | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/basis/json/writer/writer.factor b/basis/json/writer/writer.factor index 20b84cf638..165bd86387 100644 --- 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 ;