Merge remote-tracking branch 'origin/translation' into staging

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

diff --git a/scm/document-markup.scm b/scm/document-markup.scm
index 2eca8cc7d77286bf7adbbb84998299e6c4e50a60..318a26b9e60718108a78cdb4ab4f4ee6106602e8 100644 (file)
--- a/scm/document-markup.scm
+++ b/scm/document-markup.scm
@@ -53,9 +53,9 @@
          (sig-type-names (map type-name sig))
          (signature-str
           (string-join
-           (map (lambda (x) (string-append
-                             "@var{" (car x) "} ("  (cadr x) ")" ))
-                (zip arg-names  sig-type-names))
+           (map (lambda (x y) (string-append
+                             "@var{" x "} (" y ")" ))
+                arg-names  sig-type-names)
            " " )))
 
     (string-append