* scripts/lilypond-book.py (do_file): do not overwrite input file.

[lilypond.git] / scm / chord-generic-names.scm

diff --git a/scm/chord-generic-names.scm b/scm/chord-generic-names.scm
index fed4cdff6823dc42c21f0f71adae97548f6fa3a8..7f43eb210f5c5990eff85f8739fb4ef7d7a28c0c 100644 (file)
--- a/scm/chord-generic-names.scm
+++ b/scm/chord-generic-names.scm
@@ -99,7 +99,7 @@ input/test/dpncnt.ly).
     (make-line-markup
      (if (and (= (step-nr pitch) 7)
              (= (step-alteration pitch) 1))
-        (list (ly:get-context-property context 'majorSevenSymbol))
+        (list (ly:context-property context 'majorSevenSymbol))
         (list (accidental->markup (step-alteration pitch))
               (make-simple-markup (number->string (step-nr pitch)))))))
         
@@ -147,11 +147,11 @@ input/test/dpncnt.ly).
   (if #f (begin  
           (write-me "pitches: " pitches)))
   (let* ((full-exceptions
-         (ly:get-context-property context 'chordNameExceptionsFull))
+         (ly:context-property context 'chordNameExceptionsFull))
         (full-exception (full-match full-exceptions))
         (full-markup (if full-exception (cadr full-exception) '()))
         (partial-exceptions
-         (ly:get-context-property context 'chordNameExceptionsPartial))
+         (ly:context-property context 'chordNameExceptionsPartial))
         (partial-exception (partial-match partial-exceptions))
         (partial-pitches (if partial-exception (car partial-exception) '()))
         (partial-markup-prefix