diff options
| author | Ludovic Courtes | 2006-07-13 12:34:16 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-07-13 12:34:16 +0000 |
| commit | 9a02dfaefa324ac1e5df3adc11003e1b578cfe64 (patch) | |
| tree | 748fe4e06355aa1b04f15236c6a58207ff473caf /src/guile | |
| parent | 5c602ddef86c6bed6d81687c968340f160d0af21 (diff) | |
| download | skribilo-9a02dfaefa324ac1e5df3adc11003e1b578cfe64.tar.gz skribilo-9a02dfaefa324ac1e5df3adc11003e1b578cfe64.tar.lz skribilo-9a02dfaefa324ac1e5df3adc11003e1b578cfe64.zip | |
Made `parse-list-of' tail-recursive.
* src/guile/skribilo/skribe/api.scm (parse-list-of): Made tail-recursive,
thereby fixing potential stack overflows (e.g., when building the user
manual) and perhaps slightly improving performance.
git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-9
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/skribe/api.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/guile/skribilo/skribe/api.scm b/src/guile/skribilo/skribe/api.scm index 2cd8b2e..2a4d0ae 100644 --- a/src/guile/skribilo/skribe/api.scm +++ b/src/guile/skribilo/skribe/api.scm @@ -551,12 +551,13 @@ (null? (cdr lst))) (parse-list-of for markup (car lst))) (else - (let loop ((lst lst)) + (let loop ((lst lst) + (result '())) (cond ((null? lst) - '()) + (reverse! result)) ((pair? (car lst)) - (loop (car lst))) + (loop (car lst) result)) (else (let ((r (car lst))) (if (not (is-markup? r markup)) @@ -567,7 +568,7 @@ (markup-markup r) (find-runtime-type r)) markup))) - (cons r (loop (cdr lst)))))))))) + (loop (cdr lst) (cons r result))))))))) ;*---------------------------------------------------------------------*/ ;* itemize ... */ |