summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-09-26 19:12:35 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-09-26 19:12:35 (GMT)
commit7a8e8db83501823dbe441944d6107f249accb2e8 (patch)
tree4859b8e11141ef3c9d5811e4af3d498899bda4d5 /generic
parenta3ab25966e8164aca53edb5ff3ba04d0627f25ce (diff)
downloadtcl-7a8e8db83501823dbe441944d6107f249accb2e8.zip
tcl-7a8e8db83501823dbe441944d6107f249accb2e8.tar.gz
tcl-7a8e8db83501823dbe441944d6107f249accb2e8.tar.bz2
TIP #323 IMPLEMENTATION (partial)
* doc/lassign.n: Revise [lassign] to accept zero variable names. * generic/tclCmdIL.c: * tests/cmdIL.test:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdIL.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index a96f555..e1e15e1 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdIL.c,v 1.151 2008/08/21 23:57:43 msofer Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.152 2008/09/26 19:12:42 dgp Exp $
*/
#include "tclInt.h"
@@ -2060,8 +2060,8 @@ Tcl_LassignObjCmd(
int listObjc; /* The length of the list. */
int code = TCL_OK;
- if (objc < 3) {
- Tcl_WrongNumArgs(interp, 1, objv, "list varName ?varName ...?");
+ if (objc < 2) {
+ Tcl_WrongNumArgs(interp, 1, objv, "list ?varName ...?");
return TCL_ERROR;
}