From 8f5ad6f9069e56e79a33bd0f89e4bc490e485b4b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 10 Nov 2016 10:34:08 -0800
Subject: [PATCH] colors.hsv: make sure Hi is an integer.

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

diff --git a/basis/colors/hsv/hsv.factor b/basis/colors/hsv/hsv.factor
index 194845efd1..afc32e10c9 100644
--- a/basis/colors/hsv/hsv.factor
+++ b/basis/colors/hsv/hsv.factor
@@ -17,7 +17,7 @@ C: <hsva> hsva
 
 <PRIVATE
 
-: Hi ( hsv -- Hi ) hue>> 60 / floor 6 mod ; inline
+: Hi ( hsv -- Hi ) hue>> 60 / floor 6 mod >integer ; inline
 
 : f ( hsv -- f ) [ hue>> 60 / ] [ Hi ] bi - ; inline