From f4fbdbee8e29d3f1a1f419e85d2a0a091382d8e6 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Sat, 25 May 2019 08:01:08 +0000
Subject: Add to error info when passing an error out of [coroprobe]

---
 generic/tclBasic.c | 4 ++++
 1 file changed, 4 insertions(+)

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;
-- 
cgit v0.12