diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-12 18:44:15 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-12 18:44:15 (GMT) |
| commit | 5e4c2308ce99d3d1349d0defd0585b05cd11e3fe (patch) | |
| tree | 07bde983f1188b92211e23515f8be056cb53360e /generic/tclCompCmdsGR.c | |
| parent | 979b26b406c0679a35edba070797e94d3ecb656a (diff) | |
| download | tcl-5e4c2308ce99d3d1349d0defd0585b05cd11e3fe.zip tcl-5e4c2308ce99d3d1349d0defd0585b05cd11e3fe.tar.gz tcl-5e4c2308ce99d3d1349d0defd0585b05cd11e3fe.tar.bz2 | |
Global replace: CompileBody() -> BODY().
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); } /* |