From b0f40fd0c9d80ae023fb484dfb5fab3d60042df6 Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Wed, 21 Nov 2018 22:02:45 +0000 Subject: Upgrade gs-9.25 -> gs-9.26 git-svn-id: svn://tug.org/texlive/trunk@49215 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlgs/Resource/Init/gs_res.ps | 64 +++++++++++++++---------------- 1 file changed, 32 insertions(+), 32 deletions(-) (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_res.ps') diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_res.ps b/Master/tlpkg/tlgs/Resource/Init/gs_res.ps index d1e10c939d8..8eb8bb0e582 100644 --- a/Master/tlpkg/tlgs/Resource/Init/gs_res.ps +++ b/Master/tlpkg/tlgs/Resource/Init/gs_res.ps @@ -155,10 +155,10 @@ setglobal } { /defineresource cvx /typecheck signaloperror } ifelse -} bind def +} bind executeonly odef /FindResource % (redefined below) { .Instances exch get 0 get - } bind def + } bind executeonly def % Additional entries @@ -210,7 +210,7 @@ def /findresource .systemvar /typecheck signalerror } if /findresource cvx //.findresource .errorexec -} odef +} bind executeonly odef /defineresource { % defineresource 2 .argindex 2 index 2 index % catch stackunderflow @@ -226,7 +226,7 @@ def /DefineResource .resourceexec 4 1 roll pop pop pop } .errorexec -} bind odef +} bind executeonly odef % We must prevent resourceforall from automatically restoring the stacks, % because we don't want the stacks restored if proc causes an error or % executes a 'stop'. On the other hand, resourceforall is defined in the @@ -240,10 +240,10 @@ def % Stack: