diff --git a/src/pattern.c b/src/pattern.c
index 9b58d35..b2f06fe 100644
--- a/src/pattern.c
+++ b/src/pattern.c
@@ -2074,9 +2074,8 @@
 			LIST_DEL_INIT(&bref->users);
 			bref->ref = NULL;
 		}
+		pat_delete_gen(ref, elt);
 		LIST_DEL(&elt->list);
-		LIST_DEL(&elt->list_head);
-		LIST_DEL(&elt->tree_head);
 		free(elt->pattern);
 		free(elt->sample);
 		free(elt);
@@ -2087,7 +2086,6 @@
 	LIST_DEL(&replace->head);
 
 	list_for_each_entry(expr, &ref->pat, list) {
-		expr->pat_head->prune(expr);
 		list_for_each_entry(elt, &ref->head, list) {
 			char *err = NULL;
 			struct sample_data *data = NULL;