Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix glitch in grace note grammar, add needed $out parameter to Sectio…

…nToLilypond call.
  • Loading branch information...
commit 5dca9b79c59b20e60e414a31218c67c692b31048 1 parent 772d939
@colomon authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  bin/abc2ly.pl
  2. +1 −1  lib/ABC/Grammar.pm
View
2  bin/abc2ly.pl
@@ -375,7 +375,7 @@ (ABC::Header $header, $out)
if @elements[*-1].value eq ':|:' | ':|' | '::' {
$out.print: "\\repeat volta 2 "; # 2 is abitrarily chosen here!
}
- self.SectionToLilypond(@elements[$start-of-section ..^ +@elements]);
+ self.SectionToLilypond(@elements[$start-of-section ..^ +@elements], $out);
if @elements[*-1].value eq '|]' {
$out.say: '\\bar "|."';
}
View
2  lib/ABC/Grammar.pm
@@ -27,7 +27,7 @@ grammar ABC::Grammar
regex slur_begin { '(' }
regex slur_end { ')' }
- regex grace_note { <pitch> <note_length>? } # as mnote, but without tie
+ regex grace_note { <pitch> <note_length> } # as mnote, but without tie
regex grace_note_stem { <grace_note> | [ '[' <grace_note>+ ']' ] }
regex acciaccatura { '/' }
regex grace_notes { '{' <acciaccatura>? <grace_note_stem>+ '}' }
Please sign in to comment.
Something went wrong with that request. Please try again.