Use the new fraction? predicate where appropriate.

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 5dad573ac071c348d0d948d718f4110faf03f8fd..c0c93788309cf5752f0cd894a2e076528ece2b12 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -936,7 +936,7 @@ rightHandFinger =
 
 scaleDurations =
 #(define-music-function (parser location fraction music)
-   (number-pair? ly:music?)
+   (fraction? ly:music?)
    (_i "Multiply the duration of events in @var{music} by @var{fraction}.")
    (ly:music-compress music
                      (ly:make-moment (car fraction) (cdr fraction))))

diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index b85c5ac5f802221624844442eda4b77d8927d3a9..fb2994f383f97258e03660f4a9eb92652f639b35 100644 (file)
--- a/scm/define-context-properties.scm
+++ b/scm/define-context-properties.scm
@@ -494,7 +494,7 @@ minute.")
      (tieWaitForNote ,boolean? "If true, tied notes do not have to
 follow each other directly.  This can be used for writing out
 arpeggios.")
-     (timeSignatureFraction ,number-pair? "A pair of numbers,
+     (timeSignatureFraction ,fraction? "A pair of numbers,
 signifying the time signature.  For example, @code{'(4 . 4)} is a
 4/4 time signature.")
      (timeSignatureSettings ,cheap-list? "A nested alist of settings for

diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 52700b310d8de8002fdefa7084bbde38b8da4dc2..b5acc268c3fde361fab017e63dac9daf5144883e 100644 (file)
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -306,7 +306,7 @@ larger.  Fractional values are allowed.")
      (force-hshift ,number? "This specifies a manual shift for notes
 in collisions.  The unit is the note head width of the first voice
 note.  This is used by @rinternals{note-collision-interface}.")
-     (fraction ,number-pair? "Numerator and denominator of a time
+     (fraction ,fraction? "Numerator and denominator of a time
 signature object.")
      (french-beaming ,boolean? "Use French beaming style for this
 stem.  The stem stops at the innermost beams.")