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(-) (limited to 'src/guile') 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