diff options
author | dgp <dgp@noemail.net> | 2013-07-12 18:44:15 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-07-12 18:44:15 (GMT) |
commit | 30a27a0717240765daa4a4d5d7b575f4df8d5923 (patch) | |
tree | 53e39f614a893c79813c2a8d45e724a63c493fee /generic/tclCompCmdsGR.c | |
parent | bbdfac27d5d81cc4970574596e5d2a6bd7e7f51c (diff) | |
download | tcl-30a27a0717240765daa4a4d5d7b575f4df8d5923.zip tcl-30a27a0717240765daa4a4d5d7b575f4df8d5923.tar.gz tcl-30a27a0717240765daa4a4d5d7b575f4df8d5923.tar.bz2 |
Global replace: CompileBody() -> BODY().
FossilOrigin-Name: 8338d07129e181ea7b994a92c3eb5b4e77cc46f6
Diffstat (limited to 'generic/tclCompCmdsGR.c')
-rw-r--r-- | generic/tclCompCmdsGR.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index f7c15e6..0572cd3 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -264,8 +264,7 @@ TclCompileIfCmd( */ if (compileScripts) { - SetLineInformation(wordIdx); - CompileBody(envPtr, tokenPtr, interp); + BODY(tokenPtr, wordIdx); } if (realCond) { @@ -345,8 +344,7 @@ TclCompileIfCmd( * Compile the else command body. */ - SetLineInformation(wordIdx); - CompileBody(envPtr, tokenPtr, interp); + BODY(tokenPtr, wordIdx); } /* |