use reject instead of [ ... not ] filter.

[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 3678f9bbd17dfa149772f0e720d251ee514a255e..2527b522951319fe36bdb29c2c5faa296c8d38d1 100644 (file)
--- a/basis/ui/baseline-alignment/baseline-alignment.factor
+++ b/basis/ui/baseline-alignment/baseline-alignment.factor
@@ -57,7 +57,7 @@ TUPLE: gadget-metrics height ascent descent cap-height ;
     [ descent>> ] map ?supremum ;
 
 : max-graphics-height ( seq -- y )
-    [ ascent>> not ] filter [ height>> ] map ?supremum 0 or ;
+    [ ascent>> ] reject [ height>> ] map ?supremum 0 or ;
 
 :: combine-metrics ( graphics-height ascent descent cap-height -- ascent' descent' )
     ascent [