Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 89d640be1243d4c77a9b4b01285278ad8d11d4fc..bc8dad2e448c5d5517725b485e196d8976b13a1d 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -16,9 +16,6 @@
   (make-procedure-with-setter ly:music-property
                              ly:music-set-property!))
 
-(define-safe-public (music-is-of-type? mus type)
-  "Does @code{mus} belong to the music class @code{type}?"
-  (memq type (ly:music-property mus 'types)))
 
 ;; TODO move this
 (define-public ly:grob-property
@@ -199,6 +196,8 @@ Returns `obj'.
          (set! (ly:music-property music 'duration) nd)))
     music))
 
+
+
 (define-public (shift-duration-log music shift dot)
   (music-map (lambda (x) (shift-one-duration-log x shift dot))
             music))