From 2d71fd9e221a7482226eb528c37b24c75df31b8a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 18 May 2020 20:57:03 -0700
Subject: [PATCH] ui.pens.image: allow float math.

---
 basis/ui/pens/image/image.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/ui/pens/image/image.factor b/basis/ui/pens/image/image.factor
index a8ec51ee2a..e201557a30 100644
--- a/basis/ui/pens/image/image.factor
+++ b/basis/ui/pens/image/image.factor
@@ -12,7 +12,7 @@ TUPLE: image-pen image fill? ;
 M: image-pen draw-interior
     [ dim>> ] [ [ image>> ] [ fill?>> ] bi ] bi*
     [ draw-scaled-image ] [
-        [ image-dim [ - 2 /i ] 2map ] keep
+        [ image-dim [ - 2 / ] 2map ] keep
         '[ _ draw-image ] with-translation
     ] if ;