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

prettyprint.backend: fix performance problem when printing large arrays with length limit on

db4
Slava Pestov 2009-10-02 01:23:17 -05:00
parent bcbdc9e0c8
commit 218d1cdd31
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/prettyprint/backend/backend.factor
View File

@ -169,11 +169,10 @@ M: tuple pprint*
: do-length-limit ( seq -- trimmed n/f ) : do-length-limit ( seq -- trimmed n/f )
length-limit get dup [ length-limit get dup [
over length over [-] over length over [-]
dup zero? [ 2drop f ] [ [ head ] dip ] if dup zero? [ 2drop f ] [ [ head-slice ] dip ] if
] when ; ] when ;
: pprint-elements ( seq -- ) : pprint-elements ( seq -- )
>array
do-length-limit do-length-limit
[ [ pprint* ] each ] dip [ [ pprint* ] each ] dip
[ "~" swap number>string " more~" 3append text ] when* ; [ "~" swap number>string " more~" 3append text ] when* ;