2009/12/15 Neil Puttock <[email protected]>:
> #(let* ((hairpin-def (assoc 'Hairpin all-grob-descriptions))
> (meta-def (assoc 'meta (cdr rest-def)))
> (interfaces-def (assoc 'interfaces (cdr meta-def))))
> (set-cdr! interfaces-def
> (append '(font-interface) (cdr interfaces-def))))
Oops, a gremlin crept in. :)
This is more like it:
#(let* ((hairpin-def (assoc 'Hairpin all-grob-descriptions))
(meta-def (assoc 'meta (cdr hairpin-def)))
(interfaces-def (assoc 'interfaces (cdr meta-def))))
(set-cdr! interfaces-def
(append '(font-interface) (cdr interfaces-def))))
Regards,
Neil
_______________________________________________
bug-lilypond mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/bug-lilypond
