aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2011-12-03 15:14:32 +1000
committerSteve Bennett <steveb@workware.net.au>2011-12-08 12:48:34 +1000
commit36f3914f03a1330895df1f3a35873768fc50891a (patch)
tree08a80f4ca416a03c0d6aed3d802b9d068bf6ca08
parentb61d3b0f8f60992e4e2733061573e3c7c3c3d40e (diff)
downloadjimtcl-36f3914f03a1330895df1f3a35873768fc50891a.zip
jimtcl-36f3914f03a1330895df1f3a35873768fc50891a.tar.gz
jimtcl-36f3914f03a1330895df1f3a35873768fc50891a.tar.bz2
Fix a bug in Jim_ListAppendList()
Need to ensure that value to be appended is in list form Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r--jim.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/jim.c b/jim.c
index 7f468b3..12f9ca5 100644
--- a/jim.c
+++ b/jim.c
@@ -6217,6 +6217,7 @@ void Jim_ListAppendList(Jim_Interp *interp, Jim_Obj *listPtr, Jim_Obj *appendLis
{
JimPanic((Jim_IsShared(listPtr), "Jim_ListAppendList called with shared object"));
SetListFromAny(interp, listPtr);
+ SetListFromAny(interp, appendListPtr);
Jim_InvalidateStringRep(listPtr);
ListAppendList(listPtr, appendListPtr);
}