diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2020-08-10 18:05:10 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2020-08-10 18:05:10 (GMT) |
| commit | e29e808f57505a56193de6e0717c7abe95755b03 (patch) | |
| tree | 3a9dc4b64ea48ddec33f65474dad7bedc344dae7 /generic/tclBasic.c | |
| parent | 6c0be70d2b1cc5dbfd1277556ac27ea2e39be4bb (diff) | |
| download | tcl-e29e808f57505a56193de6e0717c7abe95755b03.zip tcl-e29e808f57505a56193de6e0717c7abe95755b03.tar.gz tcl-e29e808f57505a56193de6e0717c7abe95755b03.tar.bz2 | |
Fix for [29e8848eb976], imported alias in a deletion trace.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index fe64f18..f52ecf5 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3268,6 +3268,7 @@ Tcl_DeleteCommandFromToken( * TclNRExecuteByteCode looks up the command in the command hashtable). */ + cmdPtr->flags |= CMD_IS_DELETED; TclCleanupCommandMacro(cmdPtr); return 0; } @@ -4331,7 +4332,7 @@ EvalObjvCore( * Caller gave it to us. */ - if (!(preCmdPtr->flags & CMD_IS_DELETED)) { + if (!(preCmdPtr->flags & CMD_DEAD)) { /* * So long as it exists, use it. */ |