[gs-cvs] rev 6943 - trunk/gs/src

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-08-01 14:12:02 -0700 (Tue, 01 Aug 2006)
New Revision: 6943

Modified:
   trunk/gs/src/zgeneric.c
Log:
Make forall operator error reprorting similar to Distiller's.


Modified: trunk/gs/src/zgeneric.c
===================================================================
--- trunk/gs/src/zgeneric.c	2006-08-01 18:52:57 UTC (rev 6942)
+++ trunk/gs/src/zgeneric.c	2006-08-01 21:12:02 UTC (rev 6943)
@@ -405,6 +405,7 @@
     es_ptr cproc = ep + 4;
 
     check_estack(6);
+    check_proc(*op);
     switch (r_type(obj)) {
 	default:
 	    return_op_typecheck(obj);
@@ -428,7 +429,6 @@
 	    make_op_estack(cproc, packedarray_continue);
 	    break;
     }
-    check_proc(*op);
     /*
      * Push:
      *   - a mark;