Issue 2661: parser.yy: remove `fraction'

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index 44284f6178fdc407edf4edf3a0507418f9594826..98ee4ef7028ca97aae685601af97b5d5ccd27eb6 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -475,7 +475,6 @@ If we give names, Bison complains.
 %type <scm> event_function_event
 %type <scm> figure_list
 %type <scm> figure_spec
-%type <scm> fraction
 %type <scm> full_markup
 %type <scm> full_markup_list
 %type <scm> function_arglist
@@ -1550,11 +1549,6 @@ function_arglist_backup:
                $$ = check_scheme_arg (parser, @3,
                                       $3, $1, $2);
        }
-       | function_arglist_backup REPARSE fraction
-       {
-               $$ = check_scheme_arg (parser, @3,
-                                      $3, $1, $2);
-       }
        ;
 
 function_arglist:
@@ -1574,7 +1568,7 @@ function_arglist_common:
                $$ = check_scheme_arg (parser, @3,
                                       $3, $2, $1);
        }
-       | EXPECT_SCM function_arglist_closed_optional fraction
+       | EXPECT_SCM function_arglist_closed_optional FRACTION
        {
                $$ = check_scheme_arg (parser, @3,
                                       $3, $2, $1);
@@ -1713,7 +1707,7 @@ function_arglist_closed_common:
                $$ = check_scheme_arg (parser, @3,
                                       $3, $2, $1);
        }
-       | EXPECT_SCM function_arglist_closed_optional fraction
+       | EXPECT_SCM function_arglist_closed_optional FRACTION
        {
                $$ = check_scheme_arg (parser, @3,
                                       $3, $2, $1);
@@ -2636,13 +2630,6 @@ multiplied_duration:
        }
        ;
 
-fraction:
-       FRACTION { $$ = $1; }
-       | UNSIGNED '/' UNSIGNED {
-               $$ = scm_cons ($1, $3);
-       }
-       ;
-
 dots:
        /* empty */     {
                $$ = 0;