aboutsummaryrefslogtreecommitdiff
path: root/jim.c
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2019-12-13 11:22:26 +1000
committerSteve Bennett <steveb@workware.net.au>2019-12-13 11:23:33 +1000
commit1f0f424fe611611251694502655b9330fc6c9e7d (patch)
tree5898969357e47c4cb7e9c72cb7bc395dd1da1208 /jim.c
parentdecb1fb49f6578a6fc47348fae618482d5d23bb4 (diff)
downloadjimtcl-1f0f424fe611611251694502655b9330fc6c9e7d.zip
jimtcl-1f0f424fe611611251694502655b9330fc6c9e7d.tar.gz
jimtcl-1f0f424fe611611251694502655b9330fc6c9e7d.tar.bz2
return: fix -level 0 -code xxx
Should return the given return code, not JIM_RETURN (2) Reported-by: dbohdan <dbohdan@dbohdan.com> Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.c')
-rw-r--r--jim.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/jim.c b/jim.c
index 9ddf4e5..8bb5a20 100644
--- a/jim.c
+++ b/jim.c
@@ -12981,7 +12981,7 @@ static int Jim_ReturnCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *a
if (i == argc - 1) {
Jim_SetResult(interp, argv[i]);
}
- return JIM_RETURN;
+ return level == 0 ? returnCode : JIM_RETURN;
}
/* [tailcall] */