diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-01-08 18:21:40 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-01-08 18:21:40 (GMT) |
| commit | 4a5058fc1bd50653d1de1db7f43ed983b4c8fd72 (patch) | |
| tree | 3e27838d352568ab0d538ee7abc2bd1ce6206c76 /generic/tclOO.c | |
| parent | 32f3dce79de78263b4583ff3f80d98deb3a042a2 (diff) | |
| download | tcl-4a5058fc1bd50653d1de1db7f43ed983b4c8fd72.zip tcl-4a5058fc1bd50653d1de1db7f43ed983b4c8fd72.tar.gz tcl-4a5058fc1bd50653d1de1db7f43ed983b4c8fd72.tar.bz2 | |
Udate Tcl_ObjectDeleted to reflect recent changes.
Diffstat (limited to 'generic/tclOO.c')
| -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 0243c15..7719f50 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -1083,9 +1083,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) { @@ -2842,7 +2840,7 @@ int Tcl_ObjectDeleted( Tcl_Object object) { - return Deleted((Object *)object) ? 1 : 0; + return ((Object *)object)->command == NULL; } Tcl_Object |