Cleanup some lint warnings.

[factor.git] / basis / math / rectangles / positioning / positioning.factor

diff --git a/basis/math/rectangles/positioning/positioning.factor b/basis/math/rectangles/positioning/positioning.factor
index 6b1348ca88aef3b9aebfaf0e21d9f8acd774e084..05febe4ba8afb3230f61d9ae5024d38553e28f19 100644 (file)
--- a/basis/math/rectangles/positioning/positioning.factor
+++ b/basis/math/rectangles/positioning/positioning.factor
@@ -17,7 +17,7 @@ IN: math.rectangles.positioning
     [ loc>> first ] 2dip swap [ first ] bi@ - min 0 max ;
 
 : preferred-y ( visible-rect -- y )
-    [ loc>> ] [ dim>> ] bi [ second ] bi@ + ;
+    rect-bounds [ second ] bi@ + ;
 
 : alternate-y ( visible-rect popup-dim -- y )
     [ loc>> ] dip [ second ] bi@ - ;
@@ -42,4 +42,4 @@ PRIVATE>
 
 : popup-rect ( visible-rect popup-dim screen-dim -- rect )
     [ adjust-visible-rect ] 2keep
-    [ popup-loc dup ] 2keep popup-dim <rect> ;
\ No newline at end of file
+    [ popup-loc dup ] 2keep popup-dim <rect> ;