diff options
author | Steve Bennett <steveb@workware.net.au> | 2020-05-01 11:11:49 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2020-05-06 08:18:11 +1000 |
commit | cc15115823f58221212ac42394243dc032732785 (patch) | |
tree | 644fcd5e4136f140d4e1c46fbdcc3991fcf1fdfc /tests/exitpackage.tcl | |
parent | bda206b77afac4f73617df866a620b7c3b6f475d (diff) | |
download | jimtcl-cc15115823f58221212ac42394243dc032732785.zip jimtcl-cc15115823f58221212ac42394243dc032732785.tar.gz jimtcl-cc15115823f58221212ac42394243dc032732785.tar.bz2 |
exit: Set the exit code as the interp result
If exit is caught with catch -exit, it is currently not possible
to retrieve the exit value. If an exit code is provided, set it
as the interp result.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/exitpackage.tcl')
-rw-r--r-- | tests/exitpackage.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/exitpackage.tcl b/tests/exitpackage.tcl index c292557..b76a0d9 100644 --- a/tests/exitpackage.tcl +++ b/tests/exitpackage.tcl @@ -1,3 +1,3 @@ # This package just exits -exit 1 +exit |