X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-type-predicates.scm;h=562eac3d18c002db9cccc257793ca0f69e6e5e5a;hb=76e75986e490c66ef6b141a9465d540824d6f71e;hp=9e7dc4fe9498d8b4584d9a05f1cdeeef1bbb9ef9;hpb=1c846b2c2348b4e0ca4a3c2e8fb267047ba2d203;p=lilypond.git

diff --git a/scm/document-type-predicates.scm b/scm/document-type-predicates.scm
index 9e7dc4fe94..562eac3d18 100644
--- a/scm/document-type-predicates.scm
+++ b/scm/document-type-predicates.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2010--2011 Mark Polesky <markpolesky@yahoo.com>
+;;;; Copyright (C) 2010--2015 Mark Polesky <markpolesky@yahoo.com>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -40,9 +40,9 @@
    "\n"
    "@multitable @columnfractions .33 .66\n"
    "@headitem Type predicate @tab Description\n"
-   (apply string-append
-          (sort (map document-type-predicate alist)
-                ly:string-ci<?))
+   (string-concatenate
+    (sort (map document-type-predicate alist)
+          ly:string-ci<?))
    "@end multitable\n"
    "\n"))
 
@@ -56,8 +56,7 @@
    "* LilyPond exported predicates::\n"
    "@end menu\n"
    "\n"
-   (apply
-    string-append
+   (string-concatenate
     (map
      (lambda (alist-nodename-list)
        (apply document-type-predicate-category