Fixing everything for mandatory stack effects

[factor.git] / extra / benchmark / iteration / iteration.factor

diff --git a/extra/benchmark/iteration/iteration.factor b/extra/benchmark/iteration/iteration.factor
index 61c22d5a295d08beba3fc2ed167e9d3d7bb48fb1..f49d21d5a36829664733903f94b73b54af176758 100644 (file)
--- a/extra/benchmark/iteration/iteration.factor
+++ b/extra/benchmark/iteration/iteration.factor
@@ -4,14 +4,14 @@ kernel ;
 
 : <range> ( from to -- seq ) dup <slice> ; inline
 
-: vector-iter 100 [ 0 100000 <range> >vector [ ] map drop ] times ;
-: array-iter 100 [ 0 100000 <range> >array [ ] map drop ] times ;
-: string-iter 100 [ 0 100000 <range> >string [ ] map drop ] times ;
-: sbuf-iter 100 [ 0 100000 <range> >sbuf [ ] map drop ] times ;
-: reverse-iter 100 [ 0 100000 <range> >vector <reversed> [ ] map drop ] times ;
-: dot-iter 100 [ 0 100000 <range> dup v. drop ] times ;
+: vector-iter ( -- ) 100 [ 0 100000 <range> >vector [ ] map drop ] times ;
+: array-iter ( -- ) 100 [ 0 100000 <range> >array [ ] map drop ] times ;
+: string-iter ( -- ) 100 [ 0 100000 <range> >string [ ] map drop ] times ;
+: sbuf-iter ( -- ) 100 [ 0 100000 <range> >sbuf [ ] map drop ] times ;
+: reverse-iter ( -- ) 100 [ 0 100000 <range> >vector <reversed> [ ] map drop ] times ;
+: dot-iter ( -- ) 100 [ 0 100000 <range> dup v. drop ] times ;
 
-: iter-main
+: iter-main ( -- )
     vector-iter
     array-iter
     string-iter