From: David Kastrup <dak@gnu.org>
Date: Wed, 20 Mar 2013 12:10:47 +0000 (+0100)
Subject: Use fold in map-markup-command-list
X-Git-Tag: release/2.17.16-1~32
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c7d8081aeedd9d35cc2131c2e2a4ad34e9265245;p=lilypond.git

Use fold in map-markup-command-list
---

diff --git a/scm/markup-macros.scm b/scm/markup-macros.scm
index 26390a6bd7..a3d3a9d927 100644
--- a/scm/markup-macros.scm
+++ b/scm/markup-macros.scm
@@ -465,10 +465,9 @@ eg: ((italic) (raise 4) (bold)), maps the commands on each markup argument, eg:
   (bold (raise 4 (italic markup2)))
   (bold (raise 4 (italic markup3))))
 "
-  (map-in-order (lambda (arg)
-                  (let ((result arg))
-                    (for-each (lambda (cmd)
-                                (set! result (append cmd (list result))))
-                              commands)
-                    result))
-                markups))
+  (map (lambda (arg)
+         (fold
+          (lambda (cmd prev) (append cmd (list prev)))
+          arg
+          commands))
+       markups))