summaryrefslogtreecommitdiff
path: root/psi
diff options
context:
space:
mode:
authorChris Liddell <chris.liddell@artifex.com>2023-02-13 15:05:04 +0000
committerChris Liddell <chris.liddell@artifex.com>2023-02-14 17:51:26 +0000
commit025be6a7f44655e3725f5a8119cdce523f75aabd (patch)
tree50d560ff7e922b5292e37a66df8c9f28f8a5eb09 /psi
parent03e485b0a99d4cd94011f3d217be77de25ac8c4c (diff)
downloadghostpdl-025be6a7f44655e3725f5a8119cdce523f75aabd.tar.gz
Fix having to "quit" twice from the PS executive
By correcting mistake in e8da62c6ab890c6a2776
Diffstat (limited to 'psi')
-rw-r--r--psi/imain.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/psi/imain.c b/psi/imain.c
index 4ff96afd0..82de73434 100644
--- a/psi/imain.c
+++ b/psi/imain.c
@@ -1284,7 +1284,9 @@ gs_main_finit(gs_main_instance * minst, int exit_status, int env_code)
gs_main_run_string(minst,
"$error /dstack undef \
$error /estack undef \
- $error /ostack undef",
+ $error /ostack undef \
+ serverdict /.jobsavelevel get 0 eq {/quit} {/stop} ifelse \
+ .systemvar exec",
0 , &exit_code, &error_object);
ref_stack_clear(&o_stack);