Optimized minimum and maximum for circular

diff --git a/basis/circular/circular.factor b/basis/circular/circular.factor
index 5aac946bc8b13f1f31b119ac5031d32df1abc27c..c0b00d7a3f927b63a8b68b555299e77048ffb57b 100644 (file)
--- a/basis/circular/circular.factor
+++ b/basis/circular/circular.factor
@@ -18,6 +18,9 @@ PRIVATE>
 
 M: circular virtual@ circular-wrap seq>> ; inline
 
+M: circular minimum seq>> minimum ; inline
+M: circular maximum seq>> maximum ; inline
+
 : change-circular-start ( n circular -- )
     ! change start to (start + n) mod length
     circular-wrap start<< ; inline