pdf.values: treat color tuples uniformly

diff --git a/extra/pdf/values/values.factor b/extra/pdf/values/values.factor
index f2c7a54f10534d190d68fa1440763379ef30a26a..c41e66d1fbfa9fdbe1eec299d5b12af5b9e54586 100644 (file)
--- a/extra/pdf/values/values.factor
+++ b/extra/pdf/values/values.factor
@@ -33,11 +33,7 @@ M: t pdf-value drop "true" ;
 M: f pdf-value drop "false" ;
 
 M: color pdf-value
-    [ red>> ] [ green>> ] [ blue>> ] tri
-    "%f %f %f" sprintf ;
-
-M: gray pdf-value
-    gray>> dup dup "%f %f %f" sprintf ;
+    >rgba-components drop "%f %f %f" sprintf ;
 
 M: font pdf-value
     [