diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-09-26 19:12:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-09-26 19:12:35 (GMT) |
| commit | 7a8e8db83501823dbe441944d6107f249accb2e8 (patch) | |
| tree | 4859b8e11141ef3c9d5811e4af3d498899bda4d5 /generic | |
| parent | a3ab25966e8164aca53edb5ff3ba04d0627f25ce (diff) | |
| download | tcl-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.c | 6 |
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; } |