Commit 87dde39a6ad946a19277d3dbeb9177376773f219

Thomas de Grivel 2023-02-11T12:29:21

wip make test_asan

diff --git a/libc3/buf_parse.c b/libc3/buf_parse.c
index 218d687..0c7b7a4 100644
--- a/libc3/buf_parse.c
+++ b/libc3/buf_parse.c
@@ -1477,7 +1477,7 @@ sw buf_parse_tuple (s_buf *buf, s_tuple *tuple)
  clean:
   buf_save_clean(buf, &save);
   if (list)
-    list_delete(list);
+    list_delete_all(list);
   return r;
 }
 
diff --git a/libc3/call.c b/libc3/call.c
index 26e59ae..84222c0 100644
--- a/libc3/call.c
+++ b/libc3/call.c
@@ -22,7 +22,7 @@
 void call_clean (s_call *call)
 {
   assert(call);
-  list_delete(call->arguments);
+  list_delete_all(call->arguments);
 }
 
 s_call * call_copy (const s_call *src, s_call *dest)
diff --git a/libc3/tag.c b/libc3/tag.c
index 7d6a7ee..b29202a 100644
--- a/libc3/tag.c
+++ b/libc3/tag.c
@@ -123,7 +123,7 @@ void tag_clean (s_tag *tag)
   case TAG_CALL_MACRO: call_clean(&tag->data.call);       break;
   case TAG_FN:         fn_clean(&tag->data.fn);           break;
   case TAG_INTEGER:    integer_clean(&tag->data.integer); break;
-  case TAG_LIST:       list_delete(tag->data.list);       break;
+  case TAG_LIST:       list_delete_all(tag->data.list);   break;
   case TAG_QUOTE:      quote_clean(tag->data.quote);      break;
   case TAG_STR:        str_clean(&tag->data.str);         break;
   case TAG_TUPLE:      tuple_clean(&tag->data.tuple);     break;