Re: another 'wrong type argument' error

[Kieren MacMillan]

Hi Jean (et al.),

> Heh, 2.23.14 _just_ came out.

MacPorts got updated.
I upgraded.

> try using that and putting #(ly:set-option 'compile-scheme-code) at the top 
> of your file (before any includes).
> Also add #(debug-enable 'backtrace) for best results.

Done. Result:

 Preprocessing graphical objects...Backtrace:
           9 (apply-smob/1 #<catch-closure 101a9a780>)
In 
/opt/local/var/macports/build/_opt_local_var_macports_sources_rsync.macports.org_macports_release_tarballs_ports_textproc_lilypond/lilypond-devel/work/lilypond-2.23.14/out/share/lilypond/current/scm/lily/lily.scm:
   876:16  8 (lilypond-main _)
    905:4  7 (lilypond-all _)
In srfi/srfi-1.scm:
    640:9  6 (for-each #<procedure 1022bccc0 at /opt/local/var/macp?> ?)
In 
/opt/local/var/macports/build/_opt_local_var_macports_sources_rsync.macports.org_macports_release_tarballs_ports_textproc_lilypond/lilypond-devel/work/lilypond-2.23.14/out/share/lilypond/current/scm/lily/lily.scm:
    915:9  5 (_ _)
In ice-9/boot-9.scm:
    829:9  4 (catch _ _ #<procedure 102802f60 at /opt/local/var/mac?> ?)
In unknown file:
           3 (ly:parse-file "/Users/kmac/Documents/01_music/scores/3?")
           2 (ly:book-process #<Book> #< Output_def> #< Output_def> #)
In 
/Users/kmac/Documents/01_music/scores/_include/init/Workarounds/dynamics_on-the-fly.ly:
   300:32  1 (tweak-proc #<Grob DynamicText >)
In unknown file:
           0 (list-head () 2)

Looking at dynamics_on-the-fly.ly, line 294+ is

               (if (pair? prev-self-alignment-X-tweaks)
                   '()
                   (ly:grob-set-property! grob 'X-offset
                     (let* ((x-exts
                              (map
                                (lambda (stil) (ly:stencil-extent stil X))
                                (take all-stils 2)))
                            (x-par (ly:grob-parent grob X))
                            (parent-x-ext-center
                              (interval-center
                                (if (ly:grob-property grob
                                      'X-align-on-main-noteheads)
                                    (note-column::main-extent x-par)
                                    (ly:grob-extent x-par x-par X))))

with line 300 being

                                (take all-stils 2)))

What's the patch?

Thanks!
Kieren.