From: Frank Duncan Date: Fri, 14 Jan 2022 15:18:15 +0000 (-0600) Subject: Fix bug where multiline paragraphs weren't handled correction X-Git-Url: https://code.consxy.com/gitweb/?a=commitdiff_plain;h=b9834e11fc72e7291d4b17323adf60e833d26e11;p=honey Fix bug where multiline paragraphs weren't handled correction --- diff --git a/src/main/parse.lisp b/src/main/parse.lisp index 61f37e8..45fa179 100644 --- 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)