;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;; Jan Nieuwenhuizen <janneke@gnu.org>
(define (doc-markup-function func)
- (let* ((doc-str (procedure-documentation func) )
+ (let* ((doc-str (procedure-documentation func))
(f-name (symbol->string (procedure-name func)))
(c-name (regexp-substitute/global #f "-markup$" f-name 'pre "" 'post))
(sig (object-property func 'markup-signature))
(cddr (cadr (procedure-source func)))))
(sig-type-names (map type-name sig))
- (signature (zip arg-names sig-type-names))
(signature-str
(string-join
(map (lambda (x) (string-append
(apply string-append
(map doc-markup-function
- (sort markup-function-list markup-function<?) ) )
+ (sort markup-function-list markup-function<?)))
"\n@end table"))
(define (markup-doc-node)