colors.hsv: make sure Hi is an integer.

diff --git a/basis/colors/hsv/hsv.factor b/basis/colors/hsv/hsv.factor
index 194845efd140ad54e9ad4938fbc3ae7bba08de60..afc32e10c93b75ec914578aa705fb89abd42668e 100644 (file)
--- 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