From: David Kastrup <dak@gnu.org>
Date: Mon, 12 Sep 2011 16:30:25 +0000 (+0200)
Subject: lily/parser.yy: Scheme functions received their arguments reversed.  Ouch.
X-Git-Tag: release/2.15.12-1~55
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ea40c9b2c8b1484fb4a96ddc280620c1d8f8fd8c;p=lilypond.git

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 78b3ff4d2e..37ded754c7 100644
--- 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;