summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-09-25 19:26:36 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-09-25 19:26:36 (GMT)
commit5115781cfdf86915300c18ff4ec8e51c09a30219 (patch)
tree6cb2a302ad2c0d645cb49a3e5fa53646284f2cb9 /generic/tclVar.c
parentf4151635b12b2c9b62d1b638b7096875bb65bc76 (diff)
downloadtcl-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/tclVar.c')
-rw-r--r--generic/tclVar.c7
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.
*/