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 | 6329a786eedb7e86de0fb843dfa3c3a1faac5986 (patch) | |
| tree | c7afbe642a1613694ae68812d52f0a9d84d1a63a /generic | |
| parent | 5b84b16e1fee2a7da08f3e3a3f0bb7a0ea5a72a8 (diff) | |
| download | tcl-6329a786eedb7e86de0fb843dfa3c3a1faac5986.zip tcl-6329a786eedb7e86de0fb843dfa3c3a1faac5986.tar.gz tcl-6329a786eedb7e86de0fb843dfa3c3a1faac5986.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.
Diffstat (limited to 'generic')
| -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; } |