From 07ea40eaf60f07bc6f86ada027ed0bf3ee823cbd Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 14 Feb 2009 21:51:54 -0600
Subject: [PATCH] Cosmetic fix

---
 basis/core-text/core-text.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor
index 5782feb4de..81bd1c9973 100644
--- a/basis/core-text/core-text.factor
+++ b/basis/core-text/core-text.factor
@@ -65,7 +65,7 @@ TUPLE: line font line metrics image disposed ;
 
 : selection-rect ( dim line selection -- rect )
     [ start>> ] [ end>> ] bi
-    [ f CTLineGetOffsetForStringIndex ] bi-curry@ bi
+    [ f CTLineGetOffsetForStringIndex round ] bi-curry@ bi
     [ drop nip 0 ] [ swap - swap second ] 3bi <CGRect> ;
 
 :: fill-selection-background ( context dim line string -- )