From 60b83c7241f944c3d4399c2688ac1c0c501e2a0a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 20 Apr 2012 10:51:51 -0700
Subject: [PATCH] benchmark.make: use % (push-all).

---
 extra/benchmark/make/make.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/benchmark/make/make.factor b/extra/benchmark/make/make.factor
index f38e0660e4..43e9a04be5 100644
--- a/extra/benchmark/make/make.factor
+++ b/extra/benchmark/make/make.factor
@@ -9,10 +9,10 @@ IN: benchmark.make
     [ [ CHAR: a , ] times ] "" make ;
 
 : make-arrays ( n -- seq )
-    [ iota [ , ] each ] { } make ;
+    [ iota % ] { } make ;
 
 : make-vectors ( n -- seq )
-    [ iota [ , ] each ] V{ } make ;
+    [ iota % ] V{ } make ;
 
 : make-benchmark ( -- )
     5,000 iota [