Fix bug where multiline paragraphs weren't handled correction

diff --git a/src/main/parse.lisp b/src/main/parse.lisp
index 61f37e8e32cd3d5b50501862926890f131b0a50d..45fa1796fc29d86cc084c5ecd016850d3210b2d9 100644 (file)
--- a/src/main/parse.lisp
+++ b/src/main/parse.lisp
@@ -139,7 +139,11 @@ DESCRIPTION:
    ((textp prev) (values (p prev) t)))))
 
 (defun default (text)
- (lambda (prev) (declare (ignore prev)) text))
+ (lambda (prev)
+  (if
+   (textp prev)
+   (values (as-text (format nil "~A ~A" (cadr prev) (cadr text))) t)
+   text)))
 
 (defun codefence (codetype)
  (lambda (prev)