From 375061d350a90be690644668a9db25e195f439e4 Mon Sep 17 00:00:00 2001 From: slava Date: Fri, 28 Jul 2006 04:58:44 +0000 Subject: [PATCH] fix benchmark/help --- TODO.FACTOR.txt | 1 + library/test/benchmark/help.factor | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt index bd3f8851c7..670151e50d 100644 --- a/TODO.FACTOR.txt +++ b/TODO.FACTOR.txt @@ -9,6 +9,7 @@ + ui: +- "benchmark/help" runs out of memory - shortcuts: - find a listener - find a browser diff --git a/library/test/benchmark/help.factor b/library/test/benchmark/help.factor index b405c7f3b2..1b4014b9b2 100644 --- a/library/test/benchmark/help.factor +++ b/library/test/benchmark/help.factor @@ -3,9 +3,9 @@ sequences test threads words ; [ all-articles [ - stdio get pane-clear + stdio get duplex-stream-out pane-clear dup global [ . flush ] bind [ dup help ] assert-depth drop - yield + 1 sleep ] each ] time