colors.hsv: simplify by just calling the generic >hsva.

diff --git a/basis/colors/hsv/hsv.factor b/basis/colors/hsv/hsv.factor
index afc32e10c93b75ec914578aa705fb89abd42668e..addc518e8921e093de0be8f8bc25f0f357ca49da 100644 (file)
--- a/basis/colors/hsv/hsv.factor
+++ b/basis/colors/hsv/hsv.factor
@@ -70,8 +70,7 @@ M:: rgba >hsva ( rgba -- hsva )
     ] if ;
 
 : complimentary-color ( color -- color' )
-    dup hsva? [ >hsva ] unless
-    {
+    >hsva {
         [ hue>> 180 + 360 mod ]
         [ saturation>> ]
         [ value>> ]