diff options
| author | dgp <dgp@noemail.net> | 2013-02-20 20:16:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2013-02-20 20:16:16 (GMT) |
| commit | 57de81d7641e4c5dcbffe6108977d164f121a169 (patch) | |
| tree | d001fa3b0be9cdb010989f28e02689a814df6609 /generic/tclNamesp.c | |
| parent | 53f6230133e00b2be5e54a9379fc7bda2ac7119c (diff) | |
| download | tcl-57de81d7641e4c5dcbffe6108977d164f121a169.zip tcl-57de81d7641e4c5dcbffe6108977d164f121a169.tar.gz tcl-57de81d7641e4c5dcbffe6108977d164f121a169.tar.bz2 | |
refinement
FossilOrigin-Name: bc6d15d10d002667269e77c4f0c742910c95e6ef
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++; |