aboutsummaryrefslogtreecommitdiff
path: root/jim.c
diff options
context:
space:
mode:
authoroharboe <oharboe>2008-07-08 12:04:25 +0000
committeroharboe <oharboe>2008-07-08 12:04:25 +0000
commita305962f04110d6ff252bf6ff531eeba342138ba (patch)
tree3d33576d1a6143cff181416edc200113f7582283 /jim.c
parentdfb095e05ea89d2be7db296ea25c73fb9ac5ba1c (diff)
downloadjimtcl-a305962f04110d6ff252bf6ff531eeba342138ba.zip
jimtcl-a305962f04110d6ff252bf6ff531eeba342138ba.tar.gz
jimtcl-a305962f04110d6ff252bf6ff531eeba342138ba.tar.bz2
* src/jim.c: remove bogus return value from if {[expr]} {xx} when
{xx} is not run.
Diffstat (limited to 'jim.c')
-rw-r--r--jim.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/jim.c b/jim.c
index a8e10e0..42aab42 100644
--- a/jim.c
+++ b/jim.c
@@ -10031,7 +10031,10 @@ static int Jim_IfCoreCommand(Jim_Interp *interp, int argc,
if (boolean)
return Jim_EvalObj(interp, argv[current]);
/* Ok: no else-clause follows */
- if (++current >= argc) return JIM_OK;
+ if (++current >= argc) {
+ Jim_SetResult(interp, Jim_NewEmptyStringObj(interp));
+ return JIM_OK;
+ }
falsebody = current++;
if (Jim_CompareStringImmediate(interp, argv[falsebody],
"else")) {