anchor.diff:                           (blank-line-after? current) (line-is-empty-p line))
                      (insert-item (chunks result) current)
                      (setf current nil)))
  -               (setf current-code code
  -                     was-blank? (line-is-empty-p line))
  +               (setf current-code code) 
                  
                  ;; Start new chunk?
                  (awhen (and (not current)
  
positive.code:         (current-strip env) "")
    (setf (chunk-post-processors env)
          (list               
           'handle-paragraphs             ; before headers
           'handle-setext-headers
           'handle-link-reference-titles
           'handle-code
           'handle-atx-headers
           'handle-horizontal-rules       ; before bullet lists
           'handle-bullet-lists
           'handle-number-lists
           'handle-blockquotes
           'merge-chunks-in-document
           'merge-lines-in-chunks
           
  
negative.code:    (chunks document)
     (lambda (chunk)
       (when (or (eq (started-by chunk) 'start-of-document)
                 (and (blank-line-before? chunk) 
                      (blank-line-after? chunk))
                 (and (or (blank-line-before? chunk) 
                          (blank-line-after? chunk))
                      (not (member (started-by chunk)
                                   '(line-starts-with-bullet-p 
                                     line-starts-with-number-p)))) 
                 (eq (ended-by chunk) 'end-of-document))
         (setf (paragraph? chunk) t)))))
  
  