steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

json.writer: slightly faster using first2.

db4
John Benediktsson 2012-07-11 20:47:38 -07:00
parent 749d05ac6c
commit 6b3e416bc1
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/json/writer/writer.factor
View File

@ -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 ;