Fix rounding error

diff --git a/basis/ui/baseline-alignment/baseline-alignment.factor b/basis/ui/baseline-alignment/baseline-alignment.factor
index 1cdaf760dc22ba221feff99beee924317405daed..7cecc09388469dd4b3d9ce020d843efea19f801d 100644 (file)
--- a/basis/ui/baseline-alignment/baseline-alignment.factor
+++ b/basis/ui/baseline-alignment/baseline-alignment.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays kernel locals math math.order math.vectors
+USING: arrays kernel locals math math.functions math.order math.vectors
 sequences ui.gadgets accessors combinators ;
 IN: ui.baseline-alignment
 
@@ -46,8 +46,8 @@ TUPLE: gadget-metrics height ascent descent cap-height ;
     ascent [
         cap-height 2 / :> mid-line 
         graphics-height 2 /
-        [ ascent mid-line - max mid-line + >integer ]
-        [ descent mid-line + max mid-line - >integer ] bi
+        [ ascent mid-line - max mid-line + ceiling >integer ]
+        [ descent mid-line + max mid-line - floor >integer ] bi
     ] [ f f ] if ;
 
 : (measure-metrics) ( children sizes -- graphics-height ascent descent cap-height )