anchor.diff:    (tag-open (unescaped "\\") (=> name) "{")
   
     (tagged-text
  -   (-> tag-open n)
  -   (=> (if (member n subdocs) subdoc-contents simple-contents) `(,n ,@_))
  +   (-> tag-open tag)
  +   (=> (if (member tag subdocs) subdoc-contents simple-contents) `(,tag ,@_))
      "}")
   
     (subdoc-contents
      (incf subdoc-level)
  -   (=> (many1 element)) eod
  +   (=> (many element)) eod
      (decf subdoc-level))
   
     (simple-contents
  -   (many1 (or (text-until (tagged-or "}")) tagged-text)))
  -
  -  ((tagged-or p) (or tag-open (match p)))
  +   (many1 (or (text-until (or tag-open "}")) tagged-text)))
   
     (name (=> (text (many1 (char-if #'alpha-char-p))) (keywordize _)))
   
  
positive.code:    nil)
  
    (paragraph-text
     (=> (many1 (or (text-until (tagged-or (or "[" blank))) tagged-text linkref)))
     blank)
  
    (linkref
  
negative.code:    "]")
  
    (link-contents
     (many1 (or (text-until (or tag-open "|" "]")) tagged-text)))
  
    (link-key
     "|" (text (many1 (none-of "]"))))
  