ly- -> ly:

[lilypond.git] / scm / chord-name.scm

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 580501d3b38828146862a46c043edc3012b5105b..1cb89d89a2aa72e59379e60946c9447364df5162 100644 (file)
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -331,8 +331,8 @@
      b+i-text)))
 
 (define (c++-pitch->scm p)
-  (if (pitch? p)
-      (list (pitch-octave p) (pitch-notename p) (pitch-alteration p))
+  (if (ly:pitch? p)
+      (list (ly:pitch-octave p) (ly:pitch-notename p) (ly:pitch-alteration p))
       #f))
 
 (define-public (chord::name-banter tonic exception-part unmatched-steps