benchmark.ui-panes: clean up

db4
Slava Pestov 2010-10-23 17:15:23 -07:00
parent 76344f6bc2
commit 36785f4625
1 changed files with 2 additions and 2 deletions

View File

@ -1,7 +1,7 @@
USING: io math.parser sequences ui.gadgets.panes ;
USING: io kernel math.parser sequences ui.gadgets.panes ;
IN: benchmark.ui-panes
: ui-pane-benchmark ( -- )
<pane> <pane-stream> [ 10000 iota [ number>string print ] each ] with-output-stream* ;
[ 10000 iota [ number>string print ] each ] make-pane drop ;
MAIN: ui-pane-benchmark