Subject: refinement

From: dgp <[email-masked]>
Date: Wed, 20 Feb 2013 20:16:16 +0000

---
 generic/tclNamesp.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index 22743a5..f6827aa 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -3157,8 +3157,7 @@ NamespaceExportCmd(dummy, interp, objc, objv)
      */
 
     firstArg = 2;
-    if ((objc > firstArg)
-	    && (strcmp("-clear", Tcl_GetString(objv[firstArg])) == 0)) {
+    if (strcmp("-clear", Tcl_GetString(objv[firstArg])) == 0) {
 	Tcl_Export(interp, NULL, "::", 1);
 	Tcl_ResetResult(interp);
 	firstArg++;
-- 
cgit v0.12