Re: Autochange snippet broken?

[Janek Warchoł]

On Sat, Jun 2, 2012 at 6:28 AM, David Kastrup <address@hidden> wrote:
> I actually would write the whole snippet as
>
> autochange =
> #(define-music-function (parser location ref music) ((ly:pitch?) ly:music?)
>  (let ((mus (make-autochange-music parser
>              (if ref #{ \transpose $ref c' $music #} music))))
>   (set! (ly:music-property mus 'element) music)
>   mus))
>
> \context PianoStaff <<
>  \context Staff = "up" {
>   \autochange a \new Voice << \relative c' {
>       g4 c e d c r4 a g } >>
>  }
>  \context Staff = "down" {
>   \clef bass
>   s1*2
>  }
>>>

Hey, where's my jaw?
...oh, it's on the floor.

The function in the snippet had 61 lines, and you changed it to 6 lines...
can i say anything else than 8O ?

kudos!
Janek