sequences: more use of minimum/maximum

[factor.git] / core / generic / single / single.factor

diff --git a/core/generic/single/single.factor b/core/generic/single/single.factor
index ec901189d5441210b761d0142aea757d6683ccb3..c331cd3c1f4006cd7f1394b2feb971b755d74603 100644 (file)
--- a/core/generic/single/single.factor
+++ b/core/generic/single/single.factor
@@ -183,7 +183,7 @@ M: echelon-dispatch-engine compile-engine
 M: tuple-dispatch-engine compile-engine
     tuple assumed [
         echelons>> compile-engines
-        dup keys supremum 1 + f <array>
+        dup keys maximum 1 + f <array>
         <enumerated> swap assoc-union! seq>>
     ] with-variable ;