From 6607d8c47e1d6a66b1c4e043aa51383a72185481 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 2 Sep 2008 12:35:34 -0500
Subject: [PATCH] new accessors

---
 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 92b0925907..77fddd5510 100644
--- a/extra/sequences/repeating/repeating.factor
+++ b/extra/sequences/repeating/repeating.factor
@@ -11,7 +11,7 @@ TUPLE: repeating circular len ;
 : repeated ( seq length -- new-seq )
     dupd <repeating> swap like ;
 
-M: repeating length repeating-len ;
+M: repeating length len>> ;
 M: repeating set-length (>>len) ;
 
 M: repeating virtual@ ( n seq -- n' seq' ) circular>> ;