Issue 5052: Information preserving parts of issue 4342

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index 065713de1a8f56ee7e6b115e31b2e51e1018cd98..35d858c46f6dbef1c383c3588bc7dba697fc914b 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -2719,8 +2719,8 @@ context_mod:
        | context_def_mod embedded_scm
        {
                if (!scm_is_string ($2)
-                   && ly_symbol2scm ("consists") != $1
-                   && ly_symbol2scm ("remove") != $1)
+                   && !scm_is_eq ($1, ly_symbol2scm ("consists"))
+                   && !scm_is_eq ($1, ly_symbol2scm ("remove")))
                {
                        $$ = SCM_EOL;
                        parser->parser_error (@1, _ ("only \\consists and \\remove take non-string argument."));