summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps12
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps b/Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps
index fd694bc44b5..d3402782d81 100644
--- a/Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps
+++ b/Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps
@@ -1,4 +1,4 @@
-% Copyright (C) 2001-2018 Artifex Software, Inc.
+% Copyright (C) 2001-2019 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
@@ -51,7 +51,7 @@ systemdict begin
mark 5 1 roll ] mark exch { { } forall } forall ]
//systemdict /.searchabledevs 2 index .forceput
exch .setglobal
- }
+ } executeonly
if
} .bind executeonly odef % must be bound and hidden for .forceput
@@ -129,7 +129,7 @@ systemdict begin
2 index 0 get 37 eq { [ () ] } { .getsearchabledevs } ifelse
{ 3 index concatstrings % prepend the device
{
- 2 index //file } .internalstopped not {
+ 2 index //file } //.internalstopped exec not {
4 1 roll pop pop pop //true
exit % exit with success
} {
@@ -151,7 +151,7 @@ systemdict begin
//false % success code
1 index 0 get 37 eq { [ () ] } { .getsearchabledevs } ifelse
{ 2 index concatstrings % prepend the device
- { //deletefile } .internalstopped exch pop not {
+ { //deletefile } //.internalstopped exec exch pop not {
pop //true exit % exit with success
}
if
@@ -166,7 +166,7 @@ systemdict begin
//false % success code
1 index 0 get 37 eq { [ () ] } { .getsearchabledevs } ifelse
{ 2 index concatstrings % prepend the device
- { //status } .internalstopped not {
+ { //status } //.internalstopped exec not {
{ //true 7 -2 roll pop pop //true exit } % exit with success
if
}
@@ -187,7 +187,7 @@ systemdict begin
//false % success code
2 index 0 get 37 eq { [ () ] } { .getsearchabledevs } ifelse
{ dup 4 index concatstrings % prepend the device
- { (r) //file } .internalstopped
+ { (r) //file } //.internalstopped exec
not {
closefile exch pop //true exit % exit with success
} {