diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-02-20 20:16:16 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-02-20 20:16:16 (GMT) |
| commit | 654a08259a0716fbc4ad9b4845b7534aa8fda725 (patch) | |
| tree | d001fa3b0be9cdb010989f28e02689a814df6609 | |
| parent | 1efdffcccba33e3f93f9acb44a6b003f818336ac (diff) | |
| download | tcl-654a08259a0716fbc4ad9b4845b7534aa8fda725.zip tcl-654a08259a0716fbc4ad9b4845b7534aa8fda725.tar.gz tcl-654a08259a0716fbc4ad9b4845b7534aa8fda725.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++; |