- name-sym (if (equal? "" signature-str) "" " - ") signature-str
- name-sym
- (if doc doc "(undocumented; fixme)"))))
+ name-sym (car type-names)
+ (if (equal? "" signature-str) "" " - ") signature-str
+ name-sym
+ (if doc
+ doc
+ (begin
+ (ly:warning "music function `~a' not documented." name-sym)
+ "(undocumented; fixme)")))))