From: David Kastrup <dak@gnu.org>
Date: Fri, 23 Nov 2012 15:06:59 +0000 (+0100)
Subject: parser.yy: use extended version of check_scheme_arg
X-Git-Tag: release/2.17.8-1~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ce3dbae45b2165e0283e608c5a6f0a1ef973bda3;p=lilypond.git

parser.yy: use extended version of check_scheme_arg
---

diff --git a/lily/parser.yy b/lily/parser.yy
index bf0a178465..b0ae0a53dc 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1236,11 +1236,8 @@ function_arglist_nonbackup_common:
 		else {
 			Music *t = MY_MAKE_MUSIC ("FingeringEvent", @5);
 			t->set_property ("digit", $5);
-			$$ = t->unprotect ();
-			if (scm_is_true (scm_call_1 ($2, $$)))
-				$$ = scm_cons ($$, $3);
-			else
-				$$ = check_scheme_arg (parser, @4, n, $3, $2);
+			$$ = check_scheme_arg (parser, @4, t->unprotect (),
+					       $3, $2, n);
 		}
 		
 	}
@@ -1270,27 +1267,21 @@ function_arglist_closed_nonbackup:
 	}
 	| EXPECT_OPTIONAL EXPECT_SCM function_arglist SCM_IDENTIFIER
 	{
-		SCM res = try_string_variants ($2, $4);
-		if (SCM_UNBNDP (res))
-			$$ = check_scheme_arg (parser, @4, $4, $3, $2);
-		else
-			$$ = scm_cons (res, $3);
+		$$ = check_scheme_arg (parser, @4,
+				       try_string_variants ($2, $4),
+				       $3, $2, $4);
 	}
 	| EXPECT_OPTIONAL EXPECT_SCM function_arglist STRING
 	{
-		SCM res = try_string_variants ($2, $4);
-		if (SCM_UNBNDP (res))
-			$$ = check_scheme_arg (parser, @4, $4, $3, $2);
-		else
-			$$ = scm_cons (res, $3);
+		$$ = check_scheme_arg (parser, @4,
+				       try_string_variants ($2, $4),
+				       $3, $2, $4);
 	}
 	| EXPECT_OPTIONAL EXPECT_SCM function_arglist LYRICS_STRING
 	{
-		SCM res = try_string_variants ($2, $4);
-		if (SCM_UNBNDP (res))
-			$$ = check_scheme_arg (parser, @4, $4, $3, $2);
-		else
-			$$ = scm_cons (res, $3);
+		$$ = check_scheme_arg (parser, @4,
+				       try_string_variants ($2, $4),
+				       $3, $2, $4);
 	}
 	| EXPECT_OPTIONAL EXPECT_SCM function_arglist lyric_markup
 	{