anchor.diff:  	     (if additional-extensions
   		 `(,@additional-extensions ,@*parse-active-functions*)
   		 *parse-active-functions*))))
  -    ;; (print *render-active-functions*)
  +    ;; pull in properties
  +    (iterate-key-value 
  +     properties
  +     (lambda (name value)
  +       (setf (document-property name) value)))
       (iterate-elements 
        (chunk-post-processors *parsing-environment*)
        (lambda (processor)
  
positive.code:        (empty! (lines chunk))
         (setf (markup-class chunk) '(horizontal-rule))))))
  
  ;;; ---------------------------------------------------------------------------
  
  (defun handle-paragraphs (document)
    (iterate-elements
     (chunks document)
  
negative.code:                     (not (member 'code (markup-class chunk))))
                 (and (or (blank-line-before? chunk) 
                          (blank-line-after? chunk)
  			(and 
  			 ;;?? probably a hack
  			 (eq (started-by chunk) 'start-of-document)
  			 (not (document-property :omit-initial-paragraph nil)))
  			(and 
  			 ;;?? probably a hack
  			 (eq (ended-by chunk) 'end-of-document)
  			 (not (document-property :omit-final-paragraph nil))))
                      (not (member (started-by chunk)
                                   '(line-starts-with-bullet-p 
                                     line-starts-with-number-p)))
                      (not (member 'code (markup-class chunk)))))
         (setf (paragraph? chunk) t)))))
  
  (defun handle-atx-headers (document)
    (iterate-elements
     (chunks document)
     (lambda (chunk)
       (when (and (eq (started-by chunk) 'line-is-not-empty-p)
                  (atx-header-p (first-element (lines chunk))))
         (make-header 
  	chunk (atx-header-markup-class (first-element (lines chunk)))) 
         (setf (first-element (lines chunk)) 
               (remove-atx-header (first-element (lines chunk))))))))
  
  