Segfault when doing wacky stuff

[Michael Welsh Duggan]

Based on the theory that any segfault is a bad segfault, I submit the
following lilypond file.  The code is not expected to work, but is
also not expected to segfault.

\version "2.9.19"

#(define (process-event event)
  (display event)
  (newline))

#(define (test music) 
  (let* ((odef (ly:make-output-def))
         (global (ly:make-global-context odef))
         (listener (ly:make-listener process-event))
         (global-disp (ly:context-events-below global))
         (disp (ly:make-dispatcher)))
   (ly:connect-dispatchers disp global-disp)
   (ly:add-listener listener disp 'StreamEvent)
   (ly:interpret-music-expression music global)))

#(test #{ <a b>4 << a \\ b >> #})



  

  
        

-- 
Michael Welsh Duggan
(address@hidden)