diff options
author | oharboe <oharboe> | 2008-07-08 12:04:25 +0000 |
---|---|---|
committer | oharboe <oharboe> | 2008-07-08 12:04:25 +0000 |
commit | a305962f04110d6ff252bf6ff531eeba342138ba (patch) | |
tree | 3d33576d1a6143cff181416edc200113f7582283 /jim.c | |
parent | dfb095e05ea89d2be7db296ea25c73fb9ac5ba1c (diff) | |
download | jimtcl-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.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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")) { |