From e4ccdaca862e1df94a6e7f2b4c4dc8bc3d61c4e2 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 10 Jul 2012 17:03:13 -0700
Subject: [PATCH] sequences.repeating: minor style cleanup.

---
 extra/sequences/repeating/repeating.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/sequences/repeating/repeating.factor b/extra/sequences/repeating/repeating.factor
index 20257362e7..ee64bb86d2 100644
--- 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 ;