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 | ef6f1ba2c34bd3243b54d46d23d37392d7bf34ba (patch) | |
| tree | 09d59393ee9b150022bdc596e49b0a099ee0170e /generic/tclCompCmds.c | |
| parent | b0078c812949591757520d79106eae38f21d33f0 (diff) | |
| download | tcl-ef6f1ba2c34bd3243b54d46d23d37392d7bf34ba.zip tcl-ef6f1ba2c34bd3243b54d46d23d37392d7bf34ba.tar.gz tcl-ef6f1ba2c34bd3243b54d46d23d37392d7bf34ba.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; } |