diff options
| author | Ludovic Court`es | 2007-06-08 15:08:50 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-08 15:08:50 +0000 |
| commit | 20455d41e79be6faa36c22d1ddb7fbddf77ae4d3 (patch) | |
| tree | 8633a1493c651b0446d17735c03a63f50fb12b8c | |
| parent | 9704d8c6a98aeb2d553438b546956eb0bb1696b2 (diff) | |
| parent | 044c3a2a038b2295ee42d688dabc29628ff77d7b (diff) | |
| download | skribilo-20455d41e79be6faa36c22d1ddb7fbddf77ae4d3.tar.gz skribilo-20455d41e79be6faa36c22d1ddb7fbddf77ae4d3.tar.lz skribilo-20455d41e79be6faa36c22d1ddb7fbddf77ae4d3.zip | |
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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-109
| -rw-r--r-- | ChangeLog | 19 | ||||
| -rw-r--r-- | src/guile/skribilo/ast.scm | 6 |
2 files changed, 22 insertions, 3 deletions
@@ -2,6 +2,25 @@ # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2 # +2007-06-08 15:08:50 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-109 + + Summary: + Slight optimization/cleanup of AST traversal functions. + Revision: + skribilo--devo--1.2--patch-109 + + * src/guile/skribilo/ast.scm (container-search-down): Use `(map loop + obj)', thereby removing an indirection. + (search-down): Likewise. + (find-down): Likewise. + + modified files: + ChangeLog src/guile/skribilo/ast.scm + + new patches: + lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-68 + + 2007-06-07 14:34:59 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-108 Summary: 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)))) |