aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-29 17:33:36 +0100
committerLudovic Courtès2008-01-29 17:33:36 +0100
commitc066f12fa10ccfb144ac255c950b9d6db0bbc8e4 (patch)
tree0d14de68b36e8ca5a86e3f0b68dbc6b28fde8384
parent6d6d36473616b11d977179bf3e6f30e1761f3c05 (diff)
downloadskribilo-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).
-rw-r--r--src/guile/skribilo/reader/outline.scm2
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"))))))