fun = #(define-music-function (parser location music1 music2) (ly:music? ly:music?)
(let
(
(musicList1 (ly:music-property music1 'elements))
(musicList2 (ly:music-property music2 'elements))
)
(map
(lambda (x y)
;iterate notes
(display "note found\n")
;(set! (ly:music-property x 'pitch) #{c'#})
;(ly:music-set-property! x 'pitch #{c' #})
(ly:music-set-property! x 'pitch (ly:music-property y 'pitch))
)
musicList1 musicList2
)
)
#{ $music1 #})
{
\fun {c' d' e'} {f' g' a'}
}