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

[lpd at ghostscript.com]

Author: lpd
Date: 2006-11-29 23:48:31 -0800 (Wed, 29 Nov 2006)
New Revision: 7232

Modified:
   trunk/gs/lib/gs_btokn.ps
Log:
Fixes bug: printobject and writeobject didn't signal an /undefined error if
currentobjectformat was 0.


Modified: trunk/gs/lib/gs_btokn.ps
===================================================================
--- trunk/gs/lib/gs_btokn.ps	2006-11-30 05:38:43 UTC (rev 7231)
+++ trunk/gs/lib/gs_btokn.ps	2006-11-30 07:48:31 UTC (rev 7232)
@@ -276,19 +276,28 @@
 	% Stack: -mark- file
   pop pop
 
-} odef
+} .bind def
 
 /printobject {		% <obj> <tag> printobject -
-  (%stdout) (w) file 2 index 2 index writeobject pop pop
+  currentobjectformat 0 eq {
+      /printobject .systemvar /undefined signalerror
+  } if
+  (%stdout) (w) file 2 index 2 index .writeobject pop pop
 } odef
 /writeobject {		% <file> <obj> <tag> writeobject -
+  currentobjectformat 0 eq {
+      /writeobject .systemvar /undefined signalerror
+  } if
   2 .argindex pop	% check # of args
+  .writeobject
+} odef
+/.writeobject {
   3 copy exch
 		% We must allocate the array in local VM
 		% to avoid a possible invalidaccess.
   .currentglobal false .setglobal exch 1 array astore exch .setglobal
   .writeobjects pop pop pop
-} odef
+} .bind def
 
 % Implement binary error message output.
 /.objectprinttest {		% <obj> .objectprinttest -