summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-09-25 19:51:26 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-09-25 19:51:26 (GMT)
commitbea1848e0fa6da616457fc0ce680644388a7e117 (patch)
treefe5b0bdc6afe2a9b4e95a7f54f044b1c13d09733 /generic/tclVar.c
parent5115781cfdf86915300c18ff4ec8e51c09a30219 (diff)
downloadtcl-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/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 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