Optimized minimum and maximum for element-repeats

[factor.git] / extra / sequences / repeating / repeating.factor

diff --git a/extra/sequences/repeating/repeating.factor b/extra/sequences/repeating/repeating.factor
index b2eb049cfdeb1f8c18f0d47116c8ddcc93148c33..fdfef64bfd711ef8734d76bc781687c1ae462c1c 100644 (file)
--- a/extra/sequences/repeating/repeating.factor
+++ b/extra/sequences/repeating/repeating.factor
@@ -48,5 +48,8 @@ M: element-repeats virtual@ [ times>> /i ] [ seq>> ] bi ;
 
 INSTANCE: element-repeats immutable-sequence
 
+M: element-repeats minimum seq>> minimum ; inline
+M: element-repeats maximum seq>> maximum ; inline
+
 : repeat-elements ( seq times -- new-seq )
     dupd <element-repeats> swap like ;