diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-28 02:58:15 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-28 02:58:15 (GMT) |
| commit | d896ae28d39cbaeb363e3b84c58c26e31bd0c56d (patch) | |
| tree | c714ff80e261977e24bcb902ee1b6b45566ecdf6 /generic/tclCompCmdsSZ.c | |
| parent | 7924f4a694c43ca8fe4260041d090795b0791a96 (diff) | |
| download | tcl-d896ae28d39cbaeb363e3b84c58c26e31bd0c56d.zip tcl-d896ae28d39cbaeb363e3b84c58c26e31bd0c56d.tar.gz tcl-d896ae28d39cbaeb363e3b84c58c26e31bd0c56d.tar.bz2 | |
More elimination of error message litter to fix [Bug 20a81392ec].
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 855dd8f..026b214 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -748,6 +748,9 @@ TclSubstCompile( Tcl_InterpState state = NULL; TclSubstParse(interp, bytes, numBytes, flags, &parse, &state); + if (state != NULL) { + Tcl_ResetResult(interp); + } /* * Tricky point! If the first token does not result in a *guaranteed* push |