diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-02-20 20:16:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-02-20 20:16:16 (GMT) |
| commit | 472e10b23285f3b4869e2cb5234a9e8d9f872412 (patch) | |
| tree | d001fa3b0be9cdb010989f28e02689a814df6609 | |
| parent | 5dd2f03f50c212303b25308aaef88ccc7b87bd76 (diff) | |
| download | tcl-472e10b23285f3b4869e2cb5234a9e8d9f872412.zip tcl-472e10b23285f3b4869e2cb5234a9e8d9f872412.tar.gz tcl-472e10b23285f3b4869e2cb5234a9e8d9f872412.tar.bz2 | |
refinement
| -rw-r--r-- | generic/tclNamesp.c | 3 |
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++; |