summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-02-20 20:16:16 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-02-20 20:16:16 (GMT)
commit472e10b23285f3b4869e2cb5234a9e8d9f872412 (patch)
treed001fa3b0be9cdb010989f28e02689a814df6609
parent5dd2f03f50c212303b25308aaef88ccc7b87bd76 (diff)
downloadtcl-472e10b23285f3b4869e2cb5234a9e8d9f872412.zip
tcl-472e10b23285f3b4869e2cb5234a9e8d9f872412.tar.gz
tcl-472e10b23285f3b4869e2cb5234a9e8d9f872412.tar.bz2
refinement
-rw-r--r--generic/tclNamesp.c3
1 files changed, 1 insertions, 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++;