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

[lpd at ghostscript.com]

Author: lpd
Date: 2006-10-25 22:36:39 -0700 (Wed, 25 Oct 2006)
New Revision: 7125

Modified:
   trunk/gs/lib/gs_ll3.ps
Log:
Fix: /bind load printed --.bind-- rather than --bind--. Partly fixes a
discrepancy in PS3 CET 31-01-2.


Modified: trunk/gs/lib/gs_ll3.ps
===================================================================
--- trunk/gs/lib/gs_ll3.ps	2006-10-26 04:39:35 UTC (rev 7124)
+++ trunk/gs/lib/gs_ll3.ps	2006-10-26 05:36:39 UTC (rev 7125)
@@ -34,7 +34,7 @@
 % Note that since this definition of `bind' may get bound in,
 % it has to function properly even at lower language levels,
 % where IdiomRecognition may not be defined.
-/.bind {		% <proc> .bind <proc'>
+/.bind_ {		% <proc> .bind <proc'>
   //.bind currentuserparams /IdiomRecognition
   .knownget not { false } if {
     (*) {
@@ -55,12 +55,17 @@
       } forall { exit } if
     } //.bindscratch /IdiomSet resourceforall
   } if
-} odef
+} def
+/.bind /.bind_ load odef	% note that .bind_ will get bound
 currentdict /.bindscratch .undef
 
 DELAYBIND NOBIND or not { 
-  /bind /.bind load def
+% We can't just do
+%   /bind /.bind load def
+% because then /bind load == prints --.bind-- .
+  /bind {//.bind_ exec} odef
 } if
+currentdict /.bind_ undef
 
 % ------ HalftoneTypes 6, 10, 16 and HalftoneMode ------ %