Doc-es: update CHANGES, programming-interface, scheme-tutorial, others.

[lilypond.git] / ly / music-functions-init.ly

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 86a81c35989375ac19ea32fa71a0b342906b1257..3f88b07252704184fd0cdbb991b06f516902eee1 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -307,7 +307,7 @@ cueDuring =
 in a CueVoice oriented by @var{dir}.")
    (make-music 'QuoteMusic
               'element main-music
-              'quoted-context-type 'Voice
+              'quoted-context-type 'CueVoice
               'quoted-context-id "cue"
               'quoted-music-name what
               'quoted-voice-direction dir))
@@ -319,7 +319,7 @@ cueDuringWithClef =
 in a CueVoice oriented by @var{dir}.")
    (make-music 'QuoteMusic
               'element main-music
-              'quoted-context-type 'Voice
+              'quoted-context-type 'CueVoice
               'quoted-context-id "cue"
               'quoted-music-name what
               'quoted-music-clef clef
@@ -342,6 +342,13 @@ displayMusic =
    (display-scheme-music music)
    music)
 
+displayScheme =
+#(define-scheme-function (parser location expr) (scheme?)
+   (_i "Display the internal representation of @var{expr} to the console.")
+   (newline)
+   (display-scheme-music expr)
+   expr)
+
 
 
 endSpanners =
@@ -429,26 +436,6 @@ to the preceding note or rest as a post-event with @code{-}.")
               'footnote-text footnote)))
      #{ \tweak footnote-music #mus #item #}))
 
-free =
-#(define-music-function (parser location music) (ly:music?)
-  (_i "@var{event} should start a free spanner.")
-  (let ((name (ly:music-property music 'name)))
-    (cond
-      ((eq? name 'SlurEvent)
-       (make-music 'BreakSlurEvent
-                   'span-direction (ly:music-property music 'span-direction)
-                   'direction (ly:music-property music 'direction)
-                   'spanner-id (ly:music-property music 'spanner-id)))
-      ((eq? name 'PhrasingSlurEvent)
-       (make-music 'BreakPhrasingSlurEvent
-                   'span-direction (ly:music-property music 'span-direction)
-                   'direction (ly:music-property music 'direction)
-                   'spanner-id (ly:music-property music 'spanner-id)))
-      (else
-        (begin
-          (ly:music-warning music (_ "not a breakable event"))
-        music)))))
-
 grace =
 #(def-grace-function startGraceMusic stopGraceMusic
    (_i "Insert @var{music} as grace notes."))
@@ -996,7 +983,7 @@ partial =
     (descend-to-context
      (context-spec-music (make-music 'PartialSet
                                     'origin location
-                                    'partial-duration dur)
+                                    'duration dur)
                         'Timing)
      'Score))
 
@@ -1377,7 +1364,7 @@ as a first or second voice.")
 
    (make-music 'QuoteMusic
               'element main-music
-              'quoted-context-type 'Voice
+              'quoted-context-type 'CueVoice
               'quoted-context-id "cue"
               'quoted-music-name what
               'quoted-voice-direction dir