music-functions-init.ly et al: Reduce abuse of ly:music? arguments for getting pitches.

[lilypond.git] / scm / document-identifiers.scm

diff --git a/scm/document-identifiers.scm b/scm/document-identifiers.scm
index 93b062b8d2294829b80a8a9387efdf3e089de7d0..838de55e558db9bad72d1fafc3972318dd2ce54a 100644 (file)
--- a/scm/document-identifiers.scm
+++ b/scm/document-identifiers.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2006--2010 Han-Wen Nienhuys <hanwen@lilypond.org>
+;;;; Copyright (C) 2006--2011 Han-Wen Nienhuys <hanwen@lilypond.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -31,11 +31,11 @@
 
        (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
@@ -52,15 +52,8 @@
    (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