[gs-cvs] rev 7234 - trunk/gs/lib

[lpd at ghostscript.com]

Author: lpd
Date: 2006-11-30 09:30:17 -0800 (Thu, 30 Nov 2006)
New Revision: 7234

Modified:
   trunk/gs/lib/gs_lev2.ps
Log:
Fixes bug: setcolorrendering returned CRD names as strings rather than names.


Modified: trunk/gs/lib/gs_lev2.ps
===================================================================
--- trunk/gs/lib/gs_lev2.ps	2006-11-30 17:11:55 UTC (rev 7233)
+++ trunk/gs/lib/gs_lev2.ps	2006-11-30 17:30:17 UTC (rev 7234)
@@ -706,7 +706,7 @@
   1 .argindex dup type /nametype eq { .namestring } if (.) concatstrings
   1 index /GetPageDeviceName get exec dup type /nametype eq { .namestring } if (.) concatstrings
   2 index /GetHalftoneName get exec dup type /nametype eq { .namestring } if
-  concatstrings concatstrings
+  concatstrings concatstrings cvn	% stack: intentname procset crdname
   dup /ColorRendering resourcestatus {
     pop pop exch pop exch pop true
   } {