Issue 5167/1: Reorganize markup commands to use object properties

[lilypond.git] / lily / lexer.ll

diff --git a/lily/lexer.ll b/lily/lexer.ll
index 21d2fc1acc16bc32cd224c1e0013fcf93151db4f..dde8fc00dc98a9050bd6fb766b0e28d175ec6cc4 100644 (file)
--- a/lily/lexer.ll
+++ b/lily/lexer.ll
@@ -424,8 +424,7 @@ BOM_UTF8    \357\273\277
                {
                        yylval = sval;
                        int token = MARKUP_FUNCTION;
-                       if (scm_is_true (scm_object_property
-                                        (sval, ly_symbol2scm ("markup-list-command"))))
+                       if (scm_is_true (Lily::markup_list_function_p (sval)))
                                token = MARKUP_LIST_FUNCTION;
                        push_markup_predicates (sig);
                        return token;