diff options
author | Akira TAGOH <akira@tagoh.org> | 2006-10-11 15:36:58 +0000 |
---|---|---|
committer | Akira TAGOH <akira@tagoh.org> | 2006-10-11 15:36:58 +0000 |
commit | 5e17ef82d3c32f89e1ac0fbaba781d0f6b28dea4 (patch) | |
tree | 59a8a6063b7d4c0e0340c69c3a475a3f96c8b795 /lib | |
parent | 1d6bddb1658802a54a2b71cf5e357a379d19369a (diff) |
2006-10-12 Akira TAGOH <at@gclab.org>
* hieroglyph/operator.c (_hg_operator_op_exit): throw /invalidexit
if it's going to jump stopped context.
(_hg_operator_op_private_hg_exit): new function to not check
/invalidexit for stopped.
* lib/hg_init.ps (executive): use .exit instead of exit.
* tests/ps/test-exec.ps:
* tests/ps/test-executeonly.ps:
* tests/ps/test-execstack.ps:
* tests/ps/test-eq.ps:
* tests/ps/test-exch.ps:
* tests/ps/test-exit.ps:
* tests/ps/testtest-exit.ps: new testcases.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/hg_init.ps | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/hg_init.ps b/lib/hg_init.ps index f8b922d..8a8236f 100644 --- a/lib/hg_init.ps +++ b/lib/hg_init.ps @@ -149,7 +149,7 @@ systemdict /.statementedit known { % need to detect an empty line separately to take care of /undefinedfilename. $error /newerror get { $error /errorname get /undefinedfilename eq { - pop pop .clearerror exit + pop pop .clearerror .exit } { % we don't care of this error here. stop |