diff options
| author | hobbs <hobbs> | 2001-08-25 00:08:46 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-08-25 00:08:46 (GMT) |
| commit | 7e9026564a47cb082b994611f37bb2ffdd092288 (patch) | |
| tree | 6103931277f3ee2c92476c4d1342bfbac77fc72e /generic/tclCompCmds.c | |
| parent | 94828be6566ab66759502d691b58a356d6250475 (diff) | |
| download | tcl-7e9026564a47cb082b994611f37bb2ffdd092288.zip tcl-7e9026564a47cb082b994611f37bb2ffdd092288.tar.gz tcl-7e9026564a47cb082b994611f37bb2ffdd092288.tar.bz2 | |
* tests/stringComp.test: added string-1.3
* generic/tclCompCmds.c (TclCompileStringCmd): changed to return
TCL_OUT_LINE_COMPILE instead of TCL_ERROR when compiling and an
unknown string method is called. This is necessary as the string
command may be never called, or not until 'string' is redefined.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index a61f962..20616d5 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompCmds.c,v 1.10 2001/08/22 13:57:53 msofer Exp $ + * RCS: @(#) $Id: tclCompCmds.c,v 1.11 2001/08/25 00:08:46 hobbs Exp $ */ #include "tclInt.h" @@ -2182,7 +2182,8 @@ TclCompileStringCmd(interp, parsePtr, envPtr) if (Tcl_GetIndexFromObj(interp, opObj, options, "option", 0, &index) != TCL_OK) { Tcl_DecrRefCount(opObj); - return TCL_ERROR; + Tcl_ResetResult(interp); + return TCL_OUT_LINE_COMPILE; } Tcl_DecrRefCount(opObj); |