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

[lpd at ghostscript.com]

Author: lpd
Date: 2006-12-05 17:33:52 -0800 (Tue, 05 Dec 2006)
New Revision: 7452

Modified:
   trunk/gs/lib/gs_dps2.ps
Log:
Fixes bug: currentcolorscreen attempted to copy a screen procedure even if
it wasn't readable.


Modified: trunk/gs/lib/gs_dps2.ps
===================================================================
--- trunk/gs/lib/gs_dps2.ps	2006-12-05 14:51:16 UTC (rev 7451)
+++ trunk/gs/lib/gs_dps2.ps	2006-12-06 01:33:52 UTC (rev 7452)
@@ -173,13 +173,17 @@
 	  exch get exec
 	} odef
 /currentcolorscreen	% - currentcolorscreen (60 0 <dict>)*4
-	{ .currenthalftone
-	   { { .fixcurrenthalftonescreen 3 copy 6 copy }	% halftone
-	     { dup length array copy 3 copy 6 copy }			% screen
-	     { }				% colorscreen
-	   }
-	  exch get exec
-	} odef
+{ .currenthalftone
+   { { .fixcurrenthalftonescreen 3 copy 6 copy }	% halftone
+     {					% screen
+	 % The procedure might not be readable....
+	 dup rcheck { dup length array copy } if
+	 3 copy 6 copy
+     }
+     { }				% colorscreen
+   }
+  exch get exec
+} odef
 
 % ------ User objects ------ %