builder: Update for new 'benchmark' effect

db4
Eduardo Cavazos 2008-05-09 09:11:46 -05:00
parent b1566be844
commit 83c4f87a2f
2 changed files with 3 additions and 3 deletions

View File

@ -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 ;

View File

@ -12,7 +12,7 @@ IN: builder.util
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: runtime ( quot -- time ) benchmark nip ;
: runtime ( quot -- time ) benchmark ;
: minutes>ms ( min -- ms ) 60 * 1000 * ;