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 swap like ; -M: repeating length repeating-len ; +M: repeating length len>> ; M: repeating set-length (>>len) ; M: repeating virtual@ ( n seq -- n' seq' ) circular>> ;