summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmdsGR.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-11-05 06:36:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-11-05 06:36:07 (GMT)
commit6329a786eedb7e86de0fb843dfa3c3a1faac5986 (patch)
treec7afbe642a1613694ae68812d52f0a9d84d1a63a /generic/tclCompCmdsGR.c
parent5b84b16e1fee2a7da08f3e3a3f0bb7a0ea5a72a8 (diff)
downloadtcl-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/tclCompCmdsGR.c')
-rw-r--r--generic/tclCompCmdsGR.c2
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;
}