diff --git a/extra/builder/test/test.factor b/extra/builder/test/test.factor index 957af28dc1..0bf8922a27 100644 --- a/extra/builder/test/test.factor +++ b/extra/builder/test/test.factor @@ -26,8 +26,8 @@ IN: builder.test : do-all ( -- ) bootstrap-time get "../boot-time" utf8 [ . ] with-file-writer - [ do-load ] runtime "../load-time" utf8 [ . ] with-file-writer - [ do-tests ] runtime "../test-time" utf8 [ . ] with-file-writer + [ do-load ] benchmark "../load-time" utf8 [ . ] with-file-writer + [ do-tests ] benchmark "../test-time" utf8 [ . ] with-file-writer do-help-lint do-benchmarks ; diff --git a/extra/builder/util/util.factor b/extra/builder/util/util.factor index c40efaaa04..5eac98d3bc 100644 --- a/extra/builder/util/util.factor +++ b/extra/builder/util/util.factor @@ -12,7 +12,7 @@ IN: builder.util ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -: runtime ( quot -- time ) benchmark nip ; +: runtime ( quot -- time ) benchmark ; : minutes>ms ( min -- ms ) 60 * 1000 * ;