colors: need to have alpha>>.

diff --git a/basis/colors/colors.factor b/basis/colors/colors.factor
index a0acb251a34aaf0e960bf4a90cb205a358b4e5c6..924f3a0989dc2d5945821eac45255f25d927b95c 100644 (file)
--- a/basis/colors/colors.factor
+++ b/basis/colors/colors.factor
@@ -24,6 +24,7 @@ M: rgba >rgba ; inline
 M: color red>> >rgba red>> ;
 M: color green>> >rgba green>> ;
 M: color blue>> >rgba blue>> ;
+M: color alpha>> >rgba alpha>> ;
 
 : >rgba-components ( object -- r g b a )
     >rgba { [ red>> ] [ green>> ] [ blue>> ] [ alpha>> ] } cleave ; inline