diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 10:14:14 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 10:14:14 (GMT) |
| commit | e8f10bd44ea5fa445417a6d100d0bada8c5f0462 (patch) | |
| tree | e35c2f5239e1d749ae8916a68295f2f7f55a7b9a /generic/tclBasic.c | |
| parent | e52e074e4f028efd84c0fd8e54af331c55bf820c (diff) | |
| parent | fa3a1e4638b4d740da4c83397023d3c437f4d7cd (diff) | |
| download | tcl-e8f10bd44ea5fa445417a6d100d0bada8c5f0462.zip tcl-e8f10bd44ea5fa445417a6d100d0bada8c5f0462.tar.gz tcl-e8f10bd44ea5fa445417a6d100d0bada8c5f0462.tar.bz2 | |
merge pyk-TclOO
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 5000821..3fb099b 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3136,6 +3136,7 @@ Tcl_DeleteCommandFromToken( */ cmdPtr->nsPtr->refCount++; + if (cmdPtr->tracePtr != NULL) { CommandTrace *tracePtr; CallCommandTraces(iPtr,cmdPtr,NULL,NULL,TCL_TRACE_DELETE); |