From: David Kastrup <dak@gnu.org>
Date: Wed, 17 Feb 2016 18:15:04 +0000 (+0100)
Subject: parser.yy: Remove redundant duration_length
X-Git-Tag: release/2.19.38-1~17^2~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cd8d9ca8ca583139e10e6e3579150a68fed700cd;p=lilypond.git

parser.yy: Remove redundant duration_length
---

diff --git a/lily/parser.yy b/lily/parser.yy
index f09b437fa3..55a6ad41a6 100644
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1756,7 +1756,7 @@ function_arglist_nonbackup:
 					       (parser, @3, $3),
 					       $1, $2);
 	}
-	| function_arglist_nonbackup_reparse REPARSE duration_length
+	| function_arglist_nonbackup_reparse REPARSE multiplied_duration
 	{
 		$$ = check_scheme_arg (parser, @3, $3, $1, $2);
 	}
@@ -2073,7 +2073,7 @@ function_arglist_backup:
 		$$ = check_scheme_arg (parser, @3,
 				       $3, $1, $2);
 	}
-	| function_arglist_backup REPARSE duration_length
+	| function_arglist_backup REPARSE multiplied_duration
 	{
 		$$ = check_scheme_arg (parser, @3,
 				       $3, $1, $2);
@@ -2204,7 +2204,7 @@ function_arglist_common:
 		$$ = check_scheme_arg (parser, @3,
 				       $3, $1, $2);
 	}
-	| function_arglist_common_reparse REPARSE duration_length
+	| function_arglist_common_reparse REPARSE multiplied_duration
 	{
 		$$ = check_scheme_arg (parser, @3,
 				       $3, $1, $2);
@@ -3179,12 +3179,6 @@ script_dir:
 	| '-'	{ $$ = SCM_UNDEFINED; }
 	;
 
-duration_length:
-	multiplied_duration {
-		$$ = $1;
-	}
-	;
-
 maybe_notemode_duration:
 	{
 		$$ = SCM_UNDEFINED;