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;