From: David Kastrup <dak@gnu.org>
Date: Sun, 30 Oct 2011 07:06:53 +0000 (+0100)
Subject: Use the new fraction? predicate where appropriate.
X-Git-Tag: release/2.15.17-1~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=095abd8f56988db718ec272643cc350acbe8dfe2;p=lilypond.git

Use the new fraction? predicate where appropriate.
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 5dad573ac0..c0c9378830 100644
--- 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 b85c5ac5f8..fb2994f383 100644
--- 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 52700b310d..b5acc268c3 100644
--- 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.")