diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-11-05 16:39:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-11-05 16:39:16 (GMT) |
| commit | 304d9808e44bd74fecea7648fe2a17fc4db0a97b (patch) | |
| tree | 4ec24b414c460027e92e3571dc0c399b40dbe83d | |
| parent | 77d8108158b1e45e8dc31209eccbe00787a73fb2 (diff) | |
| parent | 6329a786eedb7e86de0fb843dfa3c3a1faac5986 (diff) | |
| download | tcl-304d9808e44bd74fecea7648fe2a17fc4db0a97b.zip tcl-304d9808e44bd74fecea7648fe2a17fc4db0a97b.tar.gz tcl-304d9808e44bd74fecea7648fe2a17fc4db0a97b.tar.bz2 | |
merge trunk
| -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; } |