diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-10-27 20:24:13 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-10-27 20:24:13 (GMT) |
| commit | 84623a09f22aed5b876eb4f0203a6fbb8df76bf5 (patch) | |
| tree | 2390fc19ffd0f02e203c1e17595f0ead74d04c68 /generic/tclCompCmdsSZ.c | |
| parent | 1c0ca80fe58e9eab0f12a8cdcb964991931ce6c6 (diff) | |
| download | tcl-84623a09f22aed5b876eb4f0203a6fbb8df76bf5.zip tcl-84623a09f22aed5b876eb4f0203a6fbb8df76bf5.tar.gz tcl-84623a09f22aed5b876eb4f0203a6fbb8df76bf5.tar.bz2 | |
Use TCL_ERROR to signal inability to compile.
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index fe661f8..26698a8 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -462,7 +462,7 @@ TclCompileStringInsertCmd( TCL_INDEX_END, &idx)) { /* Nothing useful knowable - cease compile; let it direct eval */ - return TCL_OK; + return TCL_ERROR; } /* Compute and push the string to be inserted */ |