sequences: more use of minimum/maximum

[factor.git] / core / combinators / combinators.factor

diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index 6584655751b233b5ff08c399a4a09b8308a9f43b..b6f33c25c312064b83c51370c09905d1f6cc5c88 100644 (file)
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@@ -164,13 +164,13 @@ ERROR: no-case object ;
 : contiguous-range? ( keys -- ? )
     dup [ fixnum? ] all? [
         dup all-unique? [
-            [ length ] [ supremum ] [ infimum ] tri - - 1 =
+            [ length ] [ maximum ] [ minimum ] tri - - 1 =
         ] [ drop f ] if
     ] [ drop f ] if ;
 
 : dispatch-case-quot ( default assoc -- quot )
     swap [
-        [ keys [ infimum ] [ supremum ] bi over ]
+        [ keys [ minimum ] [ maximum ] bi over ]
         [ sort-keys values [ >quotation ] map ] bi
     ] dip dup '[
         dup integer? [