- if (!list_p)
- {
- list_p = scm_c_eval_string ("list?");
- }
-
-
- SCM type = scm_object_property (sym, ly_symbol2scm ("translation-type?"));
- bool ok = type == list_p;
+ bool g = to_boolean (scm_object_property (sym, ly_symbol2scm ("is-grob?")));
+
+ if (!g)
+ mus->origin ()->warning (_f ("not a grob name, `%s'",
+ ly_symbol2string (sym)));
+
+ return g;
+}