*** empty log message ***

[lilypond.git] / scm / clef.scm

diff --git a/scm/clef.scm b/scm/clef.scm
index ba2d3bc54c9f8349ef17c1a3cdc4733a5ec93934..997ef4c05cfb3c3c07fcc5bcd409fcf4b9693888 100644 (file)
--- a/scm/clef.scm
+++ b/scm/clef.scm
@@ -93,10 +93,10 @@
   (define (make-prop-set props)
     (let*
        (
-        (m     (make-music-by-name 'PropertySet))
+        (m (make-music-by-name 'PropertySet))
         )
 
-      (map (lambda (x) (ly-set-mus-property! m (car x) (cdr x))) props)
+      (map (lambda (x) (ly:set-mus-property! m (car x) (cdr x))) props)
       m
     ))
     
@@ -140,15 +140,15 @@
             (csp (make-music-by-name 'ContextSpeccedMusic))
             )
 
-         (ly-set-mus-property! seq 'elements musics)
-         (ly-set-mus-property! csp 'element seq)
-         (ly-set-mus-property! csp 'context-type "Staff")
+         (ly:set-mus-property! seq 'elements musics)
+         (ly:set-mus-property! csp 'element seq)
+         (ly:set-mus-property! csp 'context-type "Staff")
 
          csp
          )
        (begin
-         (ly-warn (format "Unknown clef type `~a'
-See scm/lily.scm for supported clefs"))
+         (ly:warn (format "Unknown clef type `~a'
+See scm/lily.scm for supported clefs" cl))
          (make-music-by-name 'Music)
          
        )