(signature-str
(string-join
- (map (lambda (x) (format "@var{~a} (~a)"
+ (map (lambda (x) (format #f "@var{~a} (~a)"
(car x)
(cadr x)))
(zip arg-names type-names)))))
- (format
+ (format #f
"@item @code{~a}~a~a
@findex ~a
~a
(else
#f)))
-
-(define (identifier<? a b)
- (ly:string-ci<?
- (symbol->string (car a))
- (symbol->string (car b))))
-
-
(define-public (identifiers-doc-string)
- (format
+ (format #f
"@table @asis
~a
@end table