From 9a9ccf971b43e2eae0553dcab476254b191fd600 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 1 Nov 2012 16:48:44 -0700
Subject: [PATCH] images: don't truncate in image-dim.

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

diff --git a/basis/images/images.factor b/basis/images/images.factor
index 430f5bee5e..2d90faf9ad 100644
--- a/basis/images/images.factor
+++ b/basis/images/images.factor
@@ -70,7 +70,7 @@ TUPLE: image
 : <image> ( -- image ) image new ; inline
 
 : image-dim ( image -- dim )
-    [ dim>> ] [ 2x?>> ] bi [ [ 2/ ] map ] when ;
+    [ dim>> ] [ 2x?>> ] bi [ [ 2.0 / ] map ] when ;
 
 : has-alpha? ( image -- ? ) component-order>> alpha-channel? ;