anchor.diff:                            (psx (:opinion :opinions focussed
                                            :focus (prop focus))))))))
   
  -       (defun %make-segments (text opins focus focus-func)
  +       (defun %make-segments (text opins props)
            (collecting
              (let ((segpoints (excerpt-segment-points
                                (collecting (dolist (op opins) (collect (@ op 0))))
  
positive.code:                    (rebreak (prop text)))))
  
         (def-component parent-segment
             (let ((focussed (focus-parent-p (prop opinions) (prop focus))))
               (psx
                   (:span :style (create font-weight :bold position :relative)
                          :class (if focussed "parent-active" "parent-inactive")
  
negative.code:               :text (prop text)
                :opinions (prop opinions)
                :focus (state focus)
                :focus-func (@ this focus-func)
                :tree-address (list))))
           handle-click
           (lambda () (set-state focus undefined))
           focus-func
  