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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-11-23 07:01:16 -0800 (Thu, 23 Nov 2006)
New Revision: 7221

Modified:
   trunk/gs/lib/gs_lev2.ps
Log:
Trap errors from setpattern implementation and re-throw them as
setpattern errors. Fix CET 09-47c-01.


Modified: trunk/gs/lib/gs_lev2.ps
===================================================================
--- trunk/gs/lib/gs_lev2.ps	2006-11-23 14:14:38 UTC (rev 7220)
+++ trunk/gs/lib/gs_lev2.ps	2006-11-23 15:01:16 UTC (rev 7221)
@@ -860,9 +860,12 @@
 } odef
 
 /setpattern {			% [<comp1> ...] <pattern> setpattern -
-  currentcolorspace 0 get /Pattern ne {
-    [ /Pattern currentcolorspace ] setcolorspace
-  } if setcolor
+  { currentcolorspace 0 get /Pattern ne {
+      [ /Pattern currentcolorspace ] setcolorspace
+    } if setcolor
+  } stopped {
+    /setpattern .systemvar $error /errorname get signalerror
+  } if
 } odef
 
 % The following functions emulate the actions of findcmykcustomcolor and