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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2007-01-27 05:53:57 -0800 (Sat, 27 Jan 2007)
New Revision: 7648

Modified:
   trunk/gs/lib/gs_dps1.ps
   trunk/gs/lib/gs_setpd.ps
Log:
Fix a bug, introduced in rev. 7513, that caused /undefined in setpagedevice
when -dNOBIND flag was in effect and a similar bug in restore.

DIFFERENCES:
None


Modified: trunk/gs/lib/gs_dps1.ps
===================================================================
--- trunk/gs/lib/gs_dps1.ps	2007-01-26 16:49:00 UTC (rev 7647)
+++ trunk/gs/lib/gs_dps1.ps	2007-01-27 13:53:57 UTC (rev 7648)
@@ -134,6 +134,6 @@
    //SharedFontDirectory exch .forcecopynew pop
    .currentglobal .setglobal	% Rebind FontDirectory according to current VM.
    pop
- } bind odef
+ } .bind odef
 
 end				% level2dict

Modified: trunk/gs/lib/gs_setpd.ps
===================================================================
--- trunk/gs/lib/gs_setpd.ps	2007-01-26 16:49:00 UTC (rev 7647)
+++ trunk/gs/lib/gs_setpd.ps	2007-01-27 13:53:57 UTC (rev 7648)
@@ -515,7 +515,7 @@
 	 { 4 index 3 1 roll .forceput }
 	 { 3 index exch .undef }
 	ifelse
-  } bind
+  } .bind
   7 {		% For PageSize only, just impose the request.
 	1 index /PageSize eq
 	 { pop pop 1 index /PageSize 7 put }