diff --git a/extra/colors/colors.factor b/extra/colors/colors.factor index f88fe6eb05..77a1f46c87 100644 --- a/extra/colors/colors.factor +++ b/extra/colors/colors.factor @@ -27,8 +27,6 @@ M: hsva >rgba ( hsva -- rgba ) M: gray >rgba ( gray -- rgba ) [ gray>> dup dup ] [ alpha>> ] bi rgba boa ; -! M: array >rgba ( array -- rgba ) first4 rgba boa ; - M: color red>> ( color -- red ) >rgba red>> ; M: color green>> ( color -- green ) >rgba green>> ; M: color blue>> ( color -- blue ) >rgba blue>> ;