summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps13
1 files changed, 7 insertions, 6 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps b/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps
index f84a495e37a..0733af0fbb6 100644
--- a/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps
+++ b/Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps
@@ -497,7 +497,7 @@ SETPDDEBUG { (Result of putting.) = pstack flush } if
dup length dict exch {
dup type /dicttype eq { .copytree } if 2 index 3 1 roll put
} forall
-} bind def
+} def
/currentpagedevice {
.currentpagedevice {
@@ -674,7 +674,7 @@ SETPDDEBUG { (Result of putting.) = pstack flush } if
} ifelse
}
forall pop
-} bind executeonly odef
+} .bind executeonly odef
currentdict /0Policy undef
currentdict /1Policy undef
@@ -1003,7 +1003,7 @@ SETPDDEBUG { (Installing.) = pstack flush } if
//.postinstall exec
} ifelse
setglobal % return to original VM allocation mode
-} bind executeonly odef
+} .bind executeonly odef
% We break out the code after calling the Install procedure into a
% separate procedure, since it is executed even if Install causes an error.
@@ -1030,14 +1030,15 @@ SETPDDEBUG { (Installing.) = pstack flush } if
/.trysetparams
/.installpagedevice
/.postinstall
- /.copytree
/.defaultdeviceparams
/.makecurrentpagedevice
/.mergespecial
/.requiredattrs
+ /.applypolicies
+% /.copytree
% /.uninstallpagedevice % (called from C code)
-]
-{currentdict exch .forceundef} forall
+] dup currentdict .undefinternalnames
+systemdict .undefinternalnames
end % level2dict
.setlanguagelevel