sequences: more use of minimum/maximum

[factor.git] / basis / io / backend / unix / multiplexers / select / select.factor

diff --git a/basis/io/backend/unix/multiplexers/select/select.factor b/basis/io/backend/unix/multiplexers/select/select.factor
index bed7901ed6b780c629a5acc5a747d90c6bff83b2..a6006585bfc3bc2aa5ea0bb8e2f3bec6207f41b2 100644 (file)
--- a/basis/io/backend/unix/multiplexers/select/select.factor
+++ b/basis/io/backend/unix/multiplexers/select/select.factor
@@ -39,7 +39,7 @@ TUPLE: select-mx < mx read-fdset write-fdset ;
     [ writes>> keys ] [ write-fdset>> ] bi ;
 
 : max-fd ( assoc -- n )
-    dup assoc-empty? [ drop 0 ] [ keys supremum ] if ;
+    dup assoc-empty? [ drop 0 ] [ keys maximum ] if ;
 
 : num-fds ( mx -- n )
     [ reads>> max-fd ] [ writes>> max-fd ] bi max 1 + ;