From c066f12fa10ccfb144ac255c950b9d6db0bbc8e4 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Tue, 29 Jan 2008 17:33:36 +0100
Subject: 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).
---
src/guile/skribilo/reader/outline.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src')
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"))))))
--
cgit v1.2.3