X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=honey;a=blobdiff_plain;f=src%2Fmain%2Fparse.lisp;fp=src%2Fmain%2Fparse.lisp;h=45fa1796fc29d86cc084c5ecd016850d3210b2d9;hp=61f37e8e32cd3d5b50501862926890f131b0a50d;hb=b9834e11fc72e7291d4b17323adf60e833d26e11;hpb=64ea1ea9c87ce11fe1bdfaa5624216537ab76c24

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)