*** empty log message ***

[lilypond.git] / scm / clef.scm

diff --git a/scm/clef.scm b/scm/clef.scm
index e0aae19639f3384933a7df8dbaf5148b17ad6d3d..a9c7ef79b34cba0be4748aabd93dfb81dad5f837 100644 (file)
--- a/scm/clef.scm
+++ b/scm/clef.scm
@@ -96,7 +96,7 @@
         (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,14 +140,10 @@
             (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")
-
-         csp
-         )
+         (ly:set-mus-property! seq 'elements musics)
+         (context-spec-music seq 'Staff))
        (begin
-         (ly-warn (format "Unknown clef type `~a'
+         (ly:warn (format "Unknown clef type `~a'
 See scm/lily.scm for supported clefs" cl))
          (make-music-by-name 'Music)