Okay, so I've been fairly successful in implementing and tweaking. I'm working on the complementary function, to output a regular score with stacked verses for book layout. Here is my re-arrangement:
#(define
(make-my-scores parser location lyrics)
(if (not (null? lyrics))
(let* (
#{ \new Lyrics \lyricsto "sopranoAlto" { $(car lyrics) } #}
(make-my-scores parser location (cdr lyrics))
)
)
)
)
seqVerses =
#(define-void-function (parser location up down title composer passage meter lyricist copyright lyrics)
(ly:music? ly:music? string? string? string? scheme? scheme? scheme? list?)
(let*
(
(score
#{
\score {
<<
\new Staff="top" { $up }
#(make-my-scores parser location lyrics)
\new Staff="bottom" { $down \pageBreak }
>>
}
#}
)
)
(add-score parser score)
)
)
If I leave out #(make-my-scores parser location lyrics) in the main seqVerses function, I get the music just fine. However, when I add this, I get guile errors. What am I missing here? I'm sure there's something obvious that just isn't coming to mind.
Thanks,
Carl