Different solution to the tailcall impact on -errorinfo.

2015-12-15 15:16:02 +00:00
1 changed files with 3 additions and 0 deletions
@@ -8386,6 +8386,9 @@ TailcallCleanup(
    Tcl_Interp *interp,
    int result)
 {
+    Interp *iPtr = (Interp *) interp;
+
+    iPtr->flags |= ERR_ALREADY_LOGGED;
    Tcl_DecrRefCount((Tcl_Obj *) data[0]);
    return result;
 }