]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/translation-functions.scm
* VERSION (PATCH_LEVEL): bump version.
[lilypond.git] / scm / translation-functions.scm
index f3bd6163828558557a9f30d5c581e28d98eaf690..e687c32faef5cd411d8714de847d378f4a3605c2 100644 (file)
@@ -5,15 +5,6 @@
 ;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 ;;;;                Jan Nieuwenhuizen <janneke@gnu.org>
 
-(define-public (denominator-tuplet-formatter mus)
-  (number->string (ly:music-property mus 'denominator)))
-
-(define-public (fraction-tuplet-formatter mus)
-  (string-append
-   (number->string (ly:music-property mus 'denominator))
-   ":"
-   (number->string (ly:music-property mus 'numerator))))
-
 ;; metronome marks
 (define-public (format-metronome-markup event context)
   (let* ((dur (ly:music-property event 'tempo-unit))