Re: LilyPond 1.5.34

[Han-Wen Nienhuys]

address@hidden writes:
> Citat Han-Wen Nienhuys <address@hidden>:
> 
> > (Drum notation is still broken, though... Rune?)
> 
> I don't know how to fix it. - I just do things the same way as lilypond does 
> it - and as long as that is illegal I don't know what to do (c.f. previous 
> mail).
> As soon as we have consistensy in types I'll fix it. Until then I'll probably 
> keep on using 1.5.32 (or at least running with modified versions with turned 
> off typechecking).

That's what I fixed in 1.5.34: lily does internal type-checking now,
so everything  that's not allowed for Scheme functions is not allowed
for internal functions. FWIW, the drum stuff now stops at

        meddo:~/usr/src/lilypond$ lilypond input/test/drums.ly
        GNU LilyPond 1.5.34
        Nu wordt verwerkt: `input/test/drums.ly'
        Ontleden...Backtrace:
        In unknown file:
           ?:  0* [#<procedure #f #> #]
         122:  1* (if (equal? # "Request_chord") (set! music #) (let* # # #
        ...))
         124:  2  (let* (# # # # ...) (if # #) (if # #) ...)
            ...
         146:  3  [ly-set-mus-property # element ...
         148:  4*  [#<procedure #f #> #]
         122:  5*  (if (equal? # "Request_chord") (set! music #) (let* # # #
        ...))
         124:  6   (let* (# # # # ...) (if # #) (if # #) ...)
         130:  7*  (if (pair? es) (ly-set-mus-property music (quote elements)
        ...))
         131:  8   [ly-set-mus-property # elements ...
         131:  9*   [map #<procedure #f (music)> (# # # # ...)]
           ?: 10*   [#<procedure #f #> #]
         122: 11*   (if (equal? # "Request_chord") (set! music #) (let* # # #
        ...))
         123: 12    (set! music (make-drum-head kit music))
         123: 13*   [make-drum-head timbales #]
          64: 14    (let ((es #)) (if (equal? es #) req-ch (let* # #)))
              ...
          72: 15    (let* (# # # ...) (add-articulation-script req-ch script)
        ...)
          72: 16*   [#<procedure #f (p)> #<Pitch f' >]
          92: 17    (letrec ((p2p (lambda # #))) (p2p drum-pitch-names))
           ?: 18    [p2p ...

        <unnamed port>: While evaluating arguments to p2p in expression (p2p
        drum-pitch-names):
        <unnamed port>: Unbound variable: drum-pitch-names

I don't know when this error was introduced, since drums aren't part
of the regtest. When the code is working again, then  we can have a
look at integrating it in a neat way as standard lilypond.

-- 

Han-Wen Nienhuys   |   address@hidden    | http://www.cs.uu.nl/~hanwen/