diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-12-23 02:41:54 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-12-23 02:41:54 (GMT) |
| commit | dd4496550090acf79f5e144602c745533549eea5 (patch) | |
| tree | 09d59393ee9b150022bdc596e49b0a099ee0170e /generic/tclCompCmds.c | |
| parent | 81a240828fe7d60234ab063b23b1666272126fb2 (diff) | |
| download | tcl-dd4496550090acf79f5e144602c745533549eea5.zip tcl-dd4496550090acf79f5e144602c745533549eea5.tar.gz tcl-dd4496550090acf79f5e144602c745533549eea5.tar.bz2 | |
Use more suitable variable name pushers.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index ec398b6..6a22a30 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -177,9 +177,9 @@ TclCompileAppendCmd( */ varTokenPtr = TokenAfter(parsePtr->tokenPtr); - PushVarNameWord(interp, varTokenPtr, envPtr, TCL_NO_ELEMENT, - &localIndex, &isScalar, 1); - if (!isScalar || localIndex < 0) { + + localIndex = LocalScalarFromToken(varTokenPtr, envPtr); + if (localIndex < 0) { return TCL_ERROR; } |