diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-12-23 02:41:54 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-12-23 02:41:54 (GMT) |
| commit | dd69f66f843277cf2c1c7b45b80c9741e3eb0045 (patch) | |
| tree | 09d59393ee9b150022bdc596e49b0a099ee0170e /generic/tclCompCmds.c | |
| parent | 9d1f95b500863302d832312781ca071e88d00db5 (diff) | |
| download | tcl-dd69f66f843277cf2c1c7b45b80c9741e3eb0045.zip tcl-dd69f66f843277cf2c1c7b45b80c9741e3eb0045.tar.gz tcl-dd69f66f843277cf2c1c7b45b80c9741e3eb0045.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; } |