Bug fix: variable initial value couldn't be one character

diff --git a/src/main/var.lisp b/src/main/var.lisp
index a3910f2418dc537386517558f1c95a6a3469faea..93ef25e3657e6c5889b9e4ece1c51a6070005479 100644 (file)
--- a/src/main/var.lisp
+++ b/src/main/var.lisp
@@ -33,7 +33,7 @@
   (cond
    ((and next-optional (not next-line)) (list ""))
    ((and (string= "" next-line) (not (more))) (fire-error "Can't end with empty line"))
-   ((cl-ppcre:scan "^  [^ ].+" next-line)
+   ((cl-ppcre:scan "^  [^ ]+" next-line)
     (let
      ((rest-of-freeform (freeform->paragraphs next next-optional)))
      (cons