- && scm_is_true
- (scm_object_property (scm_car (x),
- ly_symbol2scm ("markup-signature")))
- && scm_is_false
- (scm_object_property (scm_car (x),
- ly_symbol2scm ("markup-list-command"))));
+ && scm_is_true (Lily::markup_command_signature (scm_car (x)))
+ && scm_is_false (Lily::markup_list_function_p (scm_car (x))));