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 | 23fa2a37a9a0cafbc3398a25bd6eb74920c237b5 (patch) | |
tree | d001fa3b0be9cdb010989f28e02689a814df6609 /generic/tclNamesp.c | |
parent | 7b382936b6402d30db2159f3814111ac44b25a0a (diff) | |
download | tcl-23fa2a37a9a0cafbc3398a25bd6eb74920c237b5.zip tcl-23fa2a37a9a0cafbc3398a25bd6eb74920c237b5.tar.gz tcl-23fa2a37a9a0cafbc3398a25bd6eb74920c237b5.tar.bz2 |
refinement
Diffstat (limited to 'generic/tclNamesp.c')
-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++; |