%% and then run scripts/auxiliar/makelsr.py
%%
%% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
\header {
lsrtags = "pitches, scheme-language, workaround"
doctitle = "Transposing pitches with minimum accidentals (\"Smart\" transpose)"
} % begin verbatim
-
#(define (naturalize-pitch p)
(let ((o (ly:pitch-octave p))
(a (* 4 (ly:pitch-alteration p)))
(if (pair? es)
(ly:music-set-property!
music 'elements
- (map (lambda (x) (naturalize x)) es)))
+ (map naturalize es)))
(if (ly:music? e)
(ly:music-set-property!
music 'element
music))
naturalizeMusic =
-#(define-music-function (parser location m)
+#(define-music-function (m)
(ly:music?)
(naturalize m))