if (scm_is_eq (tag, ly_symbol2scm ("consists")))
l1 = scm_cons (arg, l1);
- else if (scm_is_eq (tag, ly_symbol2scm ("remove"))
- && (scm_is_pair (arg)
- || ly_is_procedure (arg)
- || get_translator_creator (arg)))
- l1 = scm_delete_x (arg, l1);
+ else if (scm_is_eq (tag, ly_symbol2scm ("remove")))
+ l1 = scm_delq_x (arg, l1);
}
return l1;