Crash with bars-per-line-engraver as of LSR snippet id=838

[Michael Gerdau]

Hi list,

I'm playing with the bars-per-line-engraver as of LSR
http://lsr.di.unimi.it/LSR/Item?id=838

When I increase the number of bars in my piece beyond a certain amount
(3500-4000 in my MWE) lilypond crashes with an access violation under linux.

I have this problem with both 2.19.83 and 2.20.0. However on 2.19.83 the
crash happens later, i.e. it can process a larger number of bars.

Before I'm reporting a bug could others please verify that I'm not doing
something stupid?

MWE is attached.

Kind regards,
Michael
-- 
 Michael Gerdau       email: m...@qata.de
 GPG-keys available on request or at public keyserver

%\version "2.20.0"
\version "2.19.83"

%% http://lsr.di.unimi.it/LSR/Item?id=838
%LSR completed by P.P.Schneider on Feb. 2014 for v2.18
#(define ((bars-per-line-engraver bar-list) context)
  (let* ((working-copy bar-list)
         (total (1+ (car working-copy))))
    `((acknowledgers
       (paper-column-interface
        . ,(lambda (engraver grob source-engraver)
             (let ((internal-bar (ly:context-property context 'internalBarNumber)))
               (if (and (pair? working-copy)
                        (= (remainder internal-bar total) 0)
                        (eq? #t (ly:grob-property grob 'non-musical)))
                   (begin
                     (set! (ly:grob-property grob 'line-break-permission) 'force)
                     (if (null? (cdr working-copy))
                         (set! working-copy bar-list)
                         (begin
                           (set! working-copy (cdr working-copy))))
                           (set! total (+ total (car working-copy))))))))))))

\paper {
  systems-per-page = #5
}
% \repeat unfold 3500 works with 2.19.83 and crashes with 2.20.0
% \repeat unfold 4000 crashed with both 2.19.83 and 2.20.0
music = \absolute { \repeat unfold 4000 { d'8 f' a' g'  d' f' b' d' } }

\score {
  \new Staff { \music }
  \layout {
    \context {
      \Score
      \consists #(bars-per-line-engraver '(2))
    }
  }
}

signature.asc
Description: OpenPGP digital signature