From 044c3a2a038b2295ee42d688dabc29628ff77d7b Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Fri, 8 Jun 2007 15:07:06 +0000
Subject: Slight optimization/cleanup of AST traversal functions.

* src/guile/skribilo/ast.scm (container-search-down): Use `(map loop
  obj)', thereby removing an indirection.
  (search-down): Likewise.
  (find-down): Likewise.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-68
---
 src/guile/skribilo/ast.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm
index 5484815..1b37a0b 100644
--- a/src/guile/skribilo/ast.scm
+++ b/src/guile/skribilo/ast.scm
@@ -510,7 +510,7 @@
   (let loop ((obj (markup-body obj)))
     (cond
      ((pair? obj)
-      (concatenate (map (lambda (o) (loop o)) obj)))
+      (concatenate (map loop obj)))
      ((container? obj)
       (let ((rest (loop (markup-body obj))))
         (if (pred obj)
@@ -525,7 +525,7 @@
   (let loop ((obj (markup-body obj)))
     (cond
      ((pair? obj)
-      (concatenate (map (lambda (o) (loop o)) obj)))
+      (concatenate (map loop obj)))
      ((markup? obj)
       (let ((rest (loop (markup-body obj))))
         (if (pred obj)
@@ -540,7 +540,7 @@
   (let loop ((obj obj))
     (cond
      ((pair? obj)
-      (concatenate (map (lambda (o) (loop o)) obj)))
+      (concatenate (map loop obj)))
      ((markup? obj)
       (if (pred obj)
           (list (cons obj (loop (markup-body obj))))
-- 
cgit v1.2.3