diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-09-25 19:51:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-09-25 19:51:26 (GMT) |
| commit | bea1848e0fa6da616457fc0ce680644388a7e117 (patch) | |
| tree | fe5b0bdc6afe2a9b4e95a7f54f044b1c13d09733 /generic | |
| parent | 5115781cfdf86915300c18ff4ec8e51c09a30219 (diff) | |
| download | tcl-bea1848e0fa6da616457fc0ce680644388a7e117.zip tcl-bea1848e0fa6da616457fc0ce680644388a7e117.tar.gz tcl-bea1848e0fa6da616457fc0ce680644388a7e117.tar.bz2 | |
TIP #323 IMPLEMENTATION (partial)
* doc/global.n: Revise [global] to accept zero variable names.
* doc/variable.n: Revise [variable] likewise.
* generic/tclVar.c:
* tests/proc-old.test:
* tests/var.test:
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclVar.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index e609c70..15b1856 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.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: tclVar.c,v 1.167 2008/09/25 19:26:38 dgp Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.168 2008/09/25 19:51:29 dgp Exp $ */ #include "tclInt.h" @@ -3938,11 +3938,6 @@ Tcl_VariableObjCmd( int i, result; Tcl_Obj *varNamePtr, *tailPtr; - if (objc < 2) { - Tcl_WrongNumArgs(interp, 1, objv, "?name value ...? name ?value?"); - return TCL_ERROR; - } - for (i=1 ; i<objc ; i+=2) { /* * Look up each variable in the current namespace context, creating it |