diff options
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps')
-rw-r--r-- | Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps | 12 |
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 } { |