''

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index cc806fe177f7c09442da9c65a4b683f13785f133..698398adcc6b63bd4ef9b9982d7639500469ebc6 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -569,14 +569,15 @@ score_body:
                $$->set_spot (THIS->here_input ());
                SCM m = $1->self_scm ();
                scm_gc_unprotect_object (m);
-               $$->music_ = m;
 
                /*
                        guh.
                */
-               SCM check_func = scm_c_eval_string ("check-start-chords");
-               gh_call1 (check_func, m);
-               
+               SCM check_funcs = scm_c_eval_string ("toplevel-music-functions");
+               for (; gh_pair_p (check_funcs); check_funcs = gh_cdr (check_funcs))
+                       m = gh_call1 (gh_car (check_funcs), m);
+               $$->music_ = m;
+
        }
        | SCORE_IDENTIFIER {
                $$ = new Score (*unsmob_score ($1));