diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 10:05:27 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 10:05:27 (GMT) |
| commit | fa3a1e4638b4d740da4c83397023d3c437f4d7cd (patch) | |
| tree | e35c2f5239e1d749ae8916a68295f2f7f55a7b9a | |
| parent | 74c5043b5a84c52ec5e0fd3bef7056c9fa5b0f6a (diff) | |
| download | tcl-fa3a1e4638b4d740da4c83397023d3c437f4d7cd.zip tcl-fa3a1e4638b4d740da4c83397023d3c437f4d7cd.tar.gz tcl-fa3a1e4638b4d740da4c83397023d3c437f4d7cd.tar.bz2 | |
Udate Tcl_ObjectDeleted to reflect recent changes.
| -rw-r--r-- | generic/tclOO.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 0fcf159..c6ea91d 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -1082,9 +1082,7 @@ ObjectNamespaceDeleted( * methods on the object. */ - /* To do: Get dkf to weigh in on wether this should be protected with a - * !IsRoot() condition. - */ + /* To do: Should this be protected with a * !IsRoot() condition? */ TclOORemoveFromInstances(oPtr, oPtr->selfCls); FOREACH(mixinPtr, oPtr->mixins) { @@ -2841,7 +2839,7 @@ int Tcl_ObjectDeleted( Tcl_Object object) { - return Deleted((Object *)object) ? 1 : 0; + return ((Object *)object)->command == NULL; } Tcl_Object |