From b1566be8448a392ebcdaa9c6dc62426bb456bb53 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Fri, 9 May 2008 09:05:52 -0500 Subject: [PATCH] time: Update docs and stack effect for 'benchmark' --- extra/tools/time/time-docs.factor | 3 ++- extra/tools/time/time.factor | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/extra/tools/time/time-docs.factor b/extra/tools/time/time-docs.factor index c0afa920c4..5fedba1700 100644 --- a/extra/tools/time/time-docs.factor +++ b/extra/tools/time/time-docs.factor @@ -14,7 +14,8 @@ ARTICLE: "timing" "Timing code" ABOUT: "timing" HELP: benchmark -{ $values { "quot" "a quotation" } { "gctime" "an integer denoting milliseconds" } { "runtime" "an integer denoting milliseconds" } } +{ $values { "quot" "a quotation" } + { "runtime" "an integer denoting milliseconds" } } { $description "Runs a quotation, measuring the total wall clock time and the total time spent in the garbage collector." } { $notes "A nicer word for interactive use is " { $link time } "." } ; diff --git a/extra/tools/time/time.factor b/extra/tools/time/time.factor index 0a0121c74e..82d3491743 100644 --- a/extra/tools/time/time.factor +++ b/extra/tools/time/time.factor @@ -4,7 +4,7 @@ USING: kernel math math.vectors memory io io.styles prettyprint namespaces system sequences splitting assocs strings ; IN: tools.time -: benchmark ( quot -- gctime runtime ) +: benchmark ( quot -- runtime ) millis >r call millis r> - ; inline : simple-table. ( values -- )