From 83c4f87a2fdfdd36c725f89b4d72873078fe4ae1 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 9 May 2008 09:11:46 -0500
Subject: [PATCH] builder: Update for new 'benchmark' effect

---
 extra/builder/test/test.factor | 4 ++--
 extra/builder/util/util.factor | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

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