diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-04-17 18:54:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-04-17 18:54:36 (GMT) |
| commit | 5dff80f2fe38009bc7e7c6b3f74033a8a05a59a1 (patch) | |
| tree | 29fe86e672c859d11c94894fcad2238ebeaa31de /generic/tclCompCmds.c | |
| parent | f316d7539c5bb69dc519fc27be251c9ba056c189 (diff) | |
| download | tcl-5dff80f2fe38009bc7e7c6b3f74033a8a05a59a1.zip tcl-5dff80f2fe38009bc7e7c6b3f74033a8a05a59a1.tar.gz tcl-5dff80f2fe38009bc7e7c6b3f74033a8a05a59a1.tar.bz2 | |
Gentler fallback.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 9a15ee0..22bbca0 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -322,8 +322,8 @@ TclCompileArraySetCmd( */ if (isDataValid && !isDataEven) { - /* Abandon compile and let direct eval raise the error */ - code = TCL_ERROR; + /* Abandon custom compile and let invocation raise the error */ + code = TclCompileBasic2ArgCmd(interp, parsePtr, cmdPtr, envPtr); goto done; /* |