From 1f5d09b497ec683bca02b1b78b8ada732b43dda9 Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Tue, 2 May 2023 11:50:03 +0000 Subject: Fix LISTREP_ASSERT --- generic/tclListObj.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v0.12