sequences: rename supremum-by/infinum-by

[factor.git] / extra / rosetta-code / multisplit / multisplit.factor

diff --git a/extra/rosetta-code/multisplit/multisplit.factor b/extra/rosetta-code/multisplit/multisplit.factor
index 49d9ab2d763e12c6982d7f3753883b4e85289cce..ae8a3b6b0d303974b7e0db70aa7e5b0d2b716e65 100644 (file)
--- a/extra/rosetta-code/multisplit/multisplit.factor
+++ b/extra/rosetta-code/multisplit/multisplit.factor
@@ -7,7 +7,7 @@ IN: rosetta-code.multisplit
 : first-subseq ( seq separators -- n separator )
     tuck
     [ [ subseq-index ] dip 2array ] withd map-index sift-keys
-    [ drop f f ] [ [ first ] infimum-by first2 rot nth ] if-empty ;
+    [ drop f f ] [ [ first ] minimum-by first2 rot nth ] if-empty ;
 
 : multisplit ( string separators -- seq )
     '[