generic_prefix_music_scm:
MUSIC_FUNCTION function_arglist {
$$ = run_music_function (PARSER, @$,
- $1,
- scm_reverse_x ($2, SCM_EOL));
+ $1, $2);
}
;
music_function_chord_body:
MUSIC_FUNCTION music_function_chord_body_arglist {
$$ = run_music_function (PARSER, @$,
- $1, scm_reverse_x ($2, SCM_EOL));
+ $1, $2);
}
;
music_function_event:
MUSIC_FUNCTION music_function_event_arglist {
$$ = run_music_function (PARSER, @$,
- $1, scm_reverse_x ($2, SCM_EOL));
+ $1, $2);
}
;
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;