sequences.repeating: minor style cleanup.

2012-07-10 17:03:13 -07:00 · 2012-07-10 17:03:13 -07:00 · e4ccdaca86
parent 96a36b34b9
commit e4ccdaca86
1 changed files with 1 additions and 1 deletions
--- a/extra/sequences/repeating/repeating.factor
+++ b/extra/sequences/repeating/repeating.factor
@ -24,7 +24,7 @@ INSTANCE: cycles virtual-sequence
 TUPLE: repeats seq length ;

 : <repeats> ( seq times -- repeats )
-    [ dup length ] dip * repeats boa ;
+    over length * repeats boa ;

 : repeat ( seq times -- new-seq )
    dupd <repeats> swap like ;