anchor.diff:          (let* [(root (.> var :node))
                  (node (nth root (# root)))]
             (if (and (list? node) (symbol? (car node)) (= (.> (car node) :var) (.> builtins :lambda)))
  -            (pretty (nth node 2))
  -            "")))
  -      (true ""))))
  +            (if (nil? (nth node 2))
  +                  (.. "(" name ")")
  +                  (.. "(" name " " (concat (traverse (nth node 2) (cut get-idx <> "contents")) " ") ")"))
  +            name)))
  +      (true name))))
   
   (defun exported (out title vars)
     "Print out a list of all exported variables"
  
positive.code:       (let* [(name (car entry))
               (var  (nth entry 2))]
  
          (writer/line! out (.. "## `" name (extract-signature var) "`"))
          (writer/line! out (format-variable var))
          (writer/line! out "" true)
          (writer/line! out (.> var :doc))
          (writer/line! out "" true)))
  
negative.code:     (for-each entry undocumented
         (let* [(name (car entry))
               (var  (nth entry 2))]
           (writer/line! out (.. " - `" (format-signature name var) "` *" (format-definition var) "*"))))))
  
  (define backend (struct
                    :exported exported))
  