anchor.diff:        (let* [(name (car entry))
                (var  (nth entry 2))]
   
  -        (writer/line! out (.. "## `" name (extract-signature var) "`"))
  -        (writer/line! out (format-variable var))
  +        (writer/line! out (.. "## `" (format-signature name var) "`"))
  +        (writer/line! out (.. "*" (format-definition var) "*"))
           (writer/line! out "" true)
           (writer/line! out (.> var :doc))
           (writer/line! out "" true)))
  
positive.code:     (for-each entry undocumented
         (let* [(name (car entry))
               (var  (nth entry 2))]
           (writer/line! out (.. " - `" name (extract-signature var) "` " (format-variable var)))))))
  
  (define backend (struct
                    :exported exported))
  
negative.code:   (table/sort list (lambda (a b)
                          (< (car a) (car b)))))
  
  (defun format-definition (var)
    "Format a variable VAR, including it's kind and the position it was defined at."
    :hidden
    (with (ty (type var))
      (cond
        ((= ty "builtin")
          "Builtin term")
        ((= ty "macro")
          (.. "Macro defined at " (format-range (logger/get-source (.> var :node)))))
        ((= ty "native")
          (.. "Native defined at " (format-range (logger/get-source (.> var :node)))))
        ((= ty "defined")
          (.. "Defined at " (format-range (logger/get-source (.> var :node))))))))
  
  (defun format-signature (name var)
    "Attempt to extract the function signature from VAR"
    :hidden
    (with (ty (type var))
  