lily/parser.yy: Scheme functions received their arguments reversed. Ouch.

So move the argument reversal into run_music_function so that we won't forget.

diff --git a/lily/parser.yy b/lily/parser.yy
index 78b3ff4d2eb8d44119c31fbf84093502d4c335ce..37ded754c716156fa5906572a46e1f7cd7001938 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1174,8 +1174,7 @@ function_arglist_nonmusic_last:
 generic_prefix_music_scm:
        MUSIC_FUNCTION function_arglist {
                $$ = run_music_function (PARSER, @$,
-                                        $1,
-                                        scm_reverse_x ($2, SCM_EOL));
+                                        $1, $2);
        }
        ;
 
@@ -1635,7 +1634,7 @@ music_function_chord_body_arglist:
 music_function_chord_body:
        MUSIC_FUNCTION music_function_chord_body_arglist {
                $$ = run_music_function (PARSER, @$,
-                                        $1, scm_reverse_x ($2, SCM_EOL));
+                                        $1, $2);
        }
        ;
 
@@ -1654,7 +1653,7 @@ music_function_event_arglist:
 music_function_event:
        MUSIC_FUNCTION music_function_event_arglist {
                $$ = run_music_function (PARSER, @$,
-                                        $1, scm_reverse_x ($2, SCM_EOL));
+                                        $1, $2);
        }
        ;
 
@@ -2728,6 +2727,8 @@ run_music_function (Lily_parser *parser, Input loc, SCM func, SCM args)
 
        SCM type_check_proc = ly_lily_module_constant ("type-check-list");
 
+       args = scm_reverse_x (args, SCM_EOL);
+
        if (!to_boolean (scm_call_3  (type_check_proc, make_input (loc), scm_cdr (sig), args)))
        {
                parser->error_level_ = 1;