- if (type != SCM_EOL && !ly_c_procedure_p (type))
- {
- warning (_f ("Can't find property type-check for `%s' (%s).",
- ly_symbol2string (sym).to_str0 (),
- ly_symbol2string (type_symbol).to_str0 ())
- + " " + _ ("Perhaps you made a typing error?"));
-
- /* Be strict when being anal :) */
- if (do_internal_type_checking_global)
- abort ();
-
- warning (_ ("Doing assignment anyway."));
- }
+ if (type != SCM_EOL && !ly_is_procedure (type))
+ {
+ warning (_f ("can't find property type-check for `%s' (%s).",
+ ly_symbol2string (sym).to_str0 (),
+ ly_symbol2string (type_symbol).to_str0 ())
+ + " " + _ ("perhaps a typing error?"));
+
+ /* Be strict when being anal :) */
+ if (do_internal_type_checking_global)
+ abort ();
+
+ warning (_ ("doing assignment anyway"));
+ }