diff options
| -rw-r--r-- | generic/tclListObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 2475c8e..726b8dd 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -68,7 +68,8 @@ #endif /* Checks for when caller should have already converted to internal list type */ -#define LIST_ASSERT_TYPE(listObj_) LIST_ASSERT(INTREP_IS_LISTREP(listObj_)) +#define LIST_ASSERT_TYPE(listObj_) \ + LIST_ASSERT(TclHasInternalRep((listObj_), &tclListType.objType)) /* * If ENABLE_LIST_INVARIANTS is enabled (-DENABLE_LIST_INVARIANTS from the |