diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2019-05-25 08:01:08 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2019-05-25 08:01:08 (GMT) |
| commit | f4fbdbee8e29d3f1a1f419e85d2a0a091382d8e6 (patch) | |
| tree | 5f492aec562ab39788104f88d45a32db9aa92f0a | |
| parent | 3db1b8bbad948c57135d221bf3e57e661a3b8dcc (diff) | |
| download | tcl-f4fbdbee8e29d3f1a1f419e85d2a0a091382d8e6.zip tcl-f4fbdbee8e29d3f1a1f419e85d2a0a091382d8e6.tar.gz tcl-f4fbdbee8e29d3f1a1f419e85d2a0a091382d8e6.tar.bz2 | |
Add to error info when passing an error out of [coroprobe]
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 02e3129..0117055 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -9435,6 +9435,10 @@ InjectHandlerPostCall( */ if (isProbe) { + if (result == TCL_ERROR) { + Tcl_AddErrorInfo(interp, + "\n (injected coroutine probe command)"); + } corPtr->nargs = nargs; corPtr->stackLevel = NULL; numLevels = iPtr->numLevels; |