Use fold in map-markup-command-list

diff --git a/scm/markup-macros.scm b/scm/markup-macros.scm
index 26390a6bd7e3ddb51675ba3edb5ef789c86e7d7b..a3d3a9d92739e9d26bec448301c52325364f9b22 100644 (file)
--- 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))