diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-11-05 06:36:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-11-05 06:36:07 (GMT) |
| commit | 71d27bd9c608100eb261b8ce58a86963aa871a68 (patch) | |
| tree | c7afbe642a1613694ae68812d52f0a9d84d1a63a | |
| parent | b14c2f49d2635f8c5b7f5f7e96aafd8a54fabcf2 (diff) | |
| download | tcl-71d27bd9c608100eb261b8ce58a86963aa871a68.zip tcl-71d27bd9c608100eb261b8ce58a86963aa871a68.tar.gz tcl-71d27bd9c608100eb261b8ce58a86963aa871a68.tar.bz2 | |
[214cc0eb22] Restore [lappend $var] return value to the 8.6.1- behavior.
If this is going to change, lets not do it by accident.
| -rw-r--r-- | generic/tclCompCmdsGR.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 9d258fc..98407f7 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -871,7 +871,7 @@ TclCompileLappendCmd( /* TODO: Consider support for compiling expanded args. */ numWords = parsePtr->numWords; - if (numWords == 1) { + if (numWords < 3) { return TCL_ERROR; } |