diff options
| -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")))))) |