Add basic scheme programmable engravers.

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index d2f3a8c4dc9e9f0eae7f1512c673fbeabadcdf6d..a4ac1ec0356ce3bf1afd3a0a813035b1870ded98 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1316,6 +1316,17 @@ context_mod:
        | context_def_mod STRING {
                $$ = scm_list_2 ($1, $2);
        }
+       | context_def_mod embedded_scm {
+          if (ly_symbol2scm ("consists") != $1)
+          {
+            $$ = SCM_EOL;
+             PARSER->parser_error (@1, _ ("only \\consists takes non-string argument."));
+          }
+          else
+          {
+            $$ = scm_list_2 ($1, $2);
+          }
+       }
        ;
 
 context_prop_spec: