From c7d8081aeedd9d35cc2131c2e2a4ad34e9265245 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 20 Mar 2013 13:10:47 +0100 Subject: [PATCH] Use fold in map-markup-command-list --- scm/markup-macros.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) 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)) -- 2.39.2