2008-09-03 07:34:40 -04:00
|
|
|
USING: ui.gadgets.panes prettyprint io sequences ;
|
|
|
|
|
IN: benchmark.ui-panes
|
|
|
|
|
|
|
|
|
|
: ui-pane-benchmark ( -- )
|
2010-01-14 13:08:22 -05:00
|
|
|
<pane> <pane-stream> [ 10000 iota [ . ] each ] with-output-stream* ;
|
2008-09-03 07:34:40 -04:00
|
|
|
|
|
|
|
|
MAIN: ui-pane-benchmark
|
