From: David Kastrup <dak@gnu.org>
Date: Thu, 10 Mar 2016 17:23:48 +0000 (+0100)
Subject: Issue 4798/6: Admit lists starting with UNSIGNED as music function arguments
X-Git-Tag: release/2.19.39-1~5^2~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=34917fefd1167f963c44fbcf47ab7f4184fc4cdc;p=lilypond.git

Issue 4798/6: Admit lists starting with UNSIGNED as music function arguments
---

diff --git a/lily/parser.yy b/lily/parser.yy
index 54de4727b5..5c58ed37ed 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1902,6 +1902,8 @@ function_arglist_nonbackup_reparse:
 		if (scm_is_true (scm_call_1 ($2, $4)))
 			// May be 3 \cm or similar
 			MYREPARSE (@4, $2, REAL, $4);
+		else if (scm_is_true (scm_call_1 ($2, scm_list_1 ($4))))
+			MYREPARSE (@4, $2, SYMBOL_LIST, scm_list_1 ($4));
 		else {
 			SCM d = make_duration ($4);
 			if (!SCM_UNBNDP (d)) {
@@ -2008,6 +2010,8 @@ function_arglist_backup:
 		if (scm_is_true (scm_call_1 ($2, $4)))
 			// May be 3 \cm or similar
 			MYREPARSE (@4, $2, REAL, $4);
+		else if (scm_is_true (scm_call_1 ($2, scm_list_1 ($4))))
+			MYREPARSE (@4, $2, SYMBOL_LIST, scm_list_1 ($4));
 		else {
 			SCM d = make_duration ($4);
 			if (!SCM_UNBNDP (d)) {
@@ -2378,6 +2382,8 @@ function_arglist_common_reparse:
 		if (scm_is_true (scm_call_1 ($1, $3)))
 			// May be 3 \cm or similar
 			MYREPARSE (@3, $1, REAL, $3);
+		else if (scm_is_true (scm_call_1 ($1, scm_list_1 ($3))))
+			MYREPARSE (@3, $1, SYMBOL_LIST, scm_list_1 ($3));
 		else {
 			SCM d = make_duration ($3);
 			if (!SCM_UNBNDP (d)) {