-
-#(define (naturalize-pitch p)
- (let* ((o (ly:pitch-octave p))
- (a (* 4 (ly:pitch-alteration p)))
- ; alteration, a, in quarter tone steps, for historical reasons
- (n (ly:pitch-notename p)))
+#(define (naturalize-pitch p)
+ (let ((o (ly:pitch-octave p))
+ (a (* 4 (ly:pitch-alteration p)))
+ ;; alteration, a, in quarter tone steps,
+ ;; for historical reasons
+ (n (ly:pitch-notename p)))