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(-)

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