sequences.extras: more supremum/infimum renames

[factor.git] / basis / ui / baseline-alignment / baseline-alignment.factor

diff --git a/basis/ui/baseline-alignment/baseline-alignment.factor b/basis/ui/baseline-alignment/baseline-alignment.factor
index dae432019f42c665a88f44eccf50ad23cef01417..7b2bba96a8dd95dfeddce7e53bb3a33a316c8dd9 100644 (file)
--- a/basis/ui/baseline-alignment/baseline-alignment.factor
+++ b/basis/ui/baseline-alignment/baseline-alignment.factor
@@ -42,20 +42,20 @@ TUPLE: gadget-metrics height ascent descent cap-height ;
     [ dup [ 2dup - ] [ f ] if ] dip
     gadget-metrics boa ; inline
 
-: ?supremum ( seq -- n/f )
-    sift [ f ] [ supremum ] if-empty ;
+: ?maximum ( seq -- n/f )
+    sift [ f ] [ maximum ] if-empty ;
 
 : max-ascent ( seq -- n/f )
-    [ ascent>> ] map ?supremum ;
+    [ ascent>> ] map ?maximum ;
 
 : max-cap-height ( seq -- n/f )
-    [ cap-height>> ] map ?supremum ;
+    [ cap-height>> ] map ?maximum ;
 
 : max-descent ( seq -- n/f )
-    [ descent>> ] map ?supremum ;
+    [ descent>> ] map ?maximum ;
 
 : max-graphics-height ( seq -- n )
-    [ ascent>> ] reject [ height>> ] map ?supremum 0 or ;
+    [ ascent>> ] reject [ height>> ] map ?maximum 0 or ;
 
 :: combine-metrics ( graphics-height ascent descent cap-height -- ascent' descent' )
     ascent [