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

[ray at ghostscript.com]

Author: ray
Date: 2006-11-21 18:03:00 -0800 (Tue, 21 Nov 2006)
New Revision: 7217

Modified:
   trunk/gs/lib/gs_dps2.ps
Log:
Fix 09-33-5 -- return the screen procedure as an array instead of packedarray.


Modified: trunk/gs/lib/gs_dps2.ps
===================================================================
--- trunk/gs/lib/gs_dps2.ps	2006-11-22 01:26:37 UTC (rev 7216)
+++ trunk/gs/lib/gs_dps2.ps	2006-11-22 02:03:00 UTC (rev 7217)
@@ -175,7 +175,7 @@
 /currentcolorscreen	% - currentcolorscreen (60 0 <dict>)*4
 	{ .currenthalftone
 	   { { .fixcurrenthalftonescreen 3 copy 6 copy }	% halftone
-	     { 3 copy 6 copy }			% screen
+	     { dup length array copy 3 copy 6 copy }			% screen
 	     { }				% colorscreen
 	   }
 	  exch get exec