diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-09-25 19:26:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-09-25 19:26:36 (GMT) |
| commit | 5115781cfdf86915300c18ff4ec8e51c09a30219 (patch) | |
| tree | 6cb2a302ad2c0d645cb49a3e5fa53646284f2cb9 /generic | |
| parent | f4151635b12b2c9b62d1b638b7096875bb65bc76 (diff) | |
| download | tcl-5115781cfdf86915300c18ff4ec8e51c09a30219.zip tcl-5115781cfdf86915300c18ff4ec8e51c09a30219.tar.gz tcl-5115781cfdf86915300c18ff4ec8e51c09a30219.tar.bz2 | |
TIP #323 IMPLEMENTATION (partial)
* doc/global.n: Revise [global] to accept zero variable names.
* generic/tclVar.c:
* tests/proc-old.test:
* tests/var.test:
* doc/global.n: Correct false claim about [info locals].
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 f4e1ad3..e609c70 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.166 2008/08/06 20:58:49 msofer Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.167 2008/09/25 19:26:38 dgp Exp $ */ #include "tclInt.h" @@ -3833,11 +3833,6 @@ Tcl_GlobalObjCmd( register char *tail; int result, i; - if (objc < 2) { - Tcl_WrongNumArgs(interp, 1, objv, "varName ?varName ...?"); - return TCL_ERROR; - } - /* * If we are not executing inside a Tcl procedure, just return. */ |