diff options
| author | Ludovic Courtès | 2008-01-29 17:33:36 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-01-29 17:33:36 +0100 |
| commit | c066f12fa10ccfb144ac255c950b9d6db0bbc8e4 (patch) | |
| tree | 0d14de68b36e8ca5a86e3f0b68dbc6b28fde8384 /src/guile | |
| parent | 6d6d36473616b11d977179bf3e6f30e1761f3c05 (diff) | |
| download | skribilo-c066f12fa10ccfb144ac255c950b9d6db0bbc8e4.tar.gz skribilo-c066f12fa10ccfb144ac255c950b9d6db0bbc8e4.tar.lz skribilo-c066f12fa10ccfb144ac255c950b9d6db0bbc8e4.zip | |
outline: Better handle paragraphs.
* src/guile/skribilo/reader/outline.scm (process-paragraph): When
returning, enclose RESULT in a list. Previously, we'd end up with
paragraphs like this: `(p list (list "something"))', where the first
occurrence of `list' is wrong (although `output' silently ignores
it).
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/reader/outline.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/guile/skribilo/reader/outline.scm b/src/guile/skribilo/reader/outline.scm index 8c48293..9ff9a4a 100644 --- a/src/guile/skribilo/reader/outline.scm +++ b/src/guile/skribilo/reader/outline.scm @@ -230,7 +230,7 @@ takes a string and returns a list." (let loop ((line line) (result '())) (if (or (eof-object? line) (empty-line? line)) - (cons 'p result) + (cons 'p (list result)) (loop (read-line port) (let ((line (line-proc line))) (append-trees result line "\n")))))) |