From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sat, 24 Dec 2016 20:19:18 +0000 (+0300)
Subject: pdf.values: treat color tuples uniformly
X-Git-Tag: unmaintained~286
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=e82ee2d723607065a62fd935f8a1d1972d9a76ed

pdf.values: treat color tuples uniformly
---

diff --git a/extra/pdf/values/values.factor b/extra/pdf/values/values.factor
index f2c7a54f10..c41e66d1fb 100644
--- 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
     [