* Documentation/user/refman.itely: Compile fix for \mark #'(music ...).

[lilypond.git] / Documentation / user / internals.itely

diff --git a/Documentation/user/internals.itely b/Documentation/user/internals.itely
index 4bb59b08dfa4c726010b86a3ce287d0bca79aa24..e18ef3f5241d6318357bfe70ff820ddc267bddf1 100644 (file)
--- a/Documentation/user/internals.itely
+++ b/Documentation/user/internals.itely
@@ -785,9 +785,9 @@ about how music is stored.
 @lilypond[verbatim,singleline]
 #(define (testfunc x)
         (if (equal? (ly-get-mus-property x 'text) "foo")
-                (ly-set-mus-property x 'text "bar"))
+                (ly-set-mus-property! x 'text "bar"))
         ;; recurse
-        (ly-set-mus-property x 'elements
+        (ly-set-mus-property! x 'elements
           (map testfunc (ly-get-mus-property x 'elements)))
         (display x)
         x        
@@ -812,9 +812,9 @@ A final example is a function that reverses a piece of music in time:
   (let* ((elements (ly-get-mus-property music 'elements))
          (reversed (reverse elements))
          (span-dir (ly-get-mus-property music 'span-direction)))
-    (ly-set-mus-property music 'elements reversed)
+    (ly-set-mus-property! music 'elements reversed)
     (if (dir? span-dir)
-        (ly-set-mus-property music 'span-direction (- span-dir)))
+        (ly-set-mus-property! music 'span-direction (- span-dir)))
     (map reverse-music reversed)
     music))