]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/context-def.cc
Web-ja: update introduction
[lilypond.git] / lily / context-def.cc
index 5768ee5471989f94d42dc87fc13f6c1737e2489e..72ddf6d37b32e816b0bf585a2fede4f41b429915 100644 (file)
@@ -291,11 +291,8 @@ Context_def::get_translator_names (SCM user_mod) const
 
       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;