colors.hsv: make sure Hi is an integer.

2016-11-10 10:34:08 -08:00 · 2016-11-10 10:34:08 -08:00 · 8f5ad6f906
parent 0025e77f05
commit 8f5ad6f906
1 changed files with 1 additions and 1 deletions
--- 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