Tcl Source Code

Artifact [1cd125fe14]
Login

Artifact 1cd125fe149958649a228a070366d1ad4f7a81ca:

Attachment "tclVar.c-patch" to ticket [1530474fff] added by afredd 2006-08-07 21:17:33.
--- tclVar.c-orig	2006-02-10 07:02:14.000000000 +0000
+++ tclVar.c	2006-08-07 14:40:16.812500000 +0100
@@ -2208,11 +2208,7 @@
     register int i, flags = TCL_LEAVE_ERR_MSG;
     register char *name;
 
-    if (objc < 1) {
-	Tcl_WrongNumArgs(interp, 1, objv,
-		"?-nocomplain? ?--? ?varName varName ...?");
-	return TCL_ERROR;
-    } else if (objc == 1) {
+    if (objc == 1) {
 	/*
 	 * Do nothing if no arguments supplied, so as to match command
 	 * documentation.