Don't discard compression factor for duration identifiers.

* lily/parser.yy:

  retrieve duration factor from duration identifier and apply it to
  copied duration

* input/regression (new file):

  add regtest

diff --git a/input/regression/duration-identifier-compressed.ly b/input/regression/duration-identifier-compressed.ly
new file mode 100644 (file)
index 0000000..2f8cc5a
--- /dev/null
+++ b/input/regression/duration-identifier-compressed.ly
@@ -0,0 +1,15 @@
+\version "2.13.18"
+
+\header {
+  texidoc = "The compression factor of a duration identifier is
+correctly accounted for by the parser."
+}
+
+% looks like a whole note, has duration of half note
+wholeHalved = #(ly:make-duration 0 0 1 2)
+
+
+\displayMusic \relative c' {
+  c\wholeHalved c |
+  c\wholeHalved. c4 |
+}

diff --git a/lily/parser.yy b/lily/parser.yy
index 1ec5e11aa2b7e787168e114e76c3d5cc880d52e9..41e5080f9854651069dcf7c9ef0c798d0b318716 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1990,6 +1990,7 @@ steno_duration:
        | DURATION_IDENTIFIER dots      {
                Duration *d = unsmob_duration ($1);
                Duration k (d->duration_log (), d->dot_count () + $2);
+               k = k.compressed (d->factor ());
                *d = k;
                $$ = $1;
        }