*** empty log message ***

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

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 5f7d3619880739bb7771dc0303e906ab22f35e7d..ba97c623d9e060f84b4b3e5aa2f20ad60abe7f65 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -283,8 +283,8 @@ OTTAVATION to `8va', or whatever appropriate."
              (let ((where (ly:context-property-where-defined context 'middleCPosition))
                    (oc0 (ly:context-property context 'originalCentralCPosition)))
                (ly:context-set-property! context 'middleCPosition oc0)
-               (ly:unset-context-property where 'originalCentralCPosition)
-               (ly:unset-context-property where 'ottavation))
+               (ly:context-unset-property where 'originalCentralCPosition)
+               (ly:context-unset-property where 'ottavation))
              (let* ((where (ly:context-property-where-defined context 'middleCPosition))
                     (c0 (ly:context-property context 'middleCPosition))
                     (new-c0 (+ c0 (* -7 octavation)))