summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-06-16 14:23:15 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-06-16 14:23:15 (GMT)
commitc755ef08151343eb145710489f8c999edbef15ff (patch)
tree94e3f6032f37eda261e15c81437ac67655b631eb
parent869bb6b839721e19027162a8ae89c66d9f5fdbe4 (diff)
downloadtcl-c755ef08151343eb145710489f8c999edbef15ff.zip
tcl-c755ef08151343eb145710489f8c999edbef15ff.tar.gz
tcl-c755ef08151343eb145710489f8c999edbef15ff.tar.bz2
[16828b3744] Prototype fix for merging forward.
-rw-r--r--generic/tclEvent.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index ba2bb64..4de8f0b 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1451,6 +1451,11 @@ VwaitVarProc(
int *donePtr = clientData;
*donePtr = 1;
+
+ Tcl_UntraceVar(interp, name1,
+ TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+ VwaitVarProc, clientData);
+
return NULL;
}