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 [ jsvar-encode? get [
[ CHAR: , write1 ] [ CHAR: , write1 ]
[ [
[ first jsvar-encode json-print ] first2
[ CHAR: : write1 second json-print ] bi [ jsvar-encode json-print ]
[ CHAR: : write1 json-print ]
bi*
] interleave ] interleave
] [ ] [
[ CHAR: , write1 ] [ CHAR: , write1 ]
[ [
[ first json-print ] first2
[ CHAR: : write1 second json-print ] bi [ json-print ]
[ CHAR: : write1 json-print ]
bi*
] interleave ] interleave
] if ] if
] unless-empty CHAR: } write1 ; ] unless-empty CHAR: } write1 ;