           true
           {:Error :wrong-type :alternate-type preferred-type})))))
 
+#_(which-type-wins? 'RootMap (map first [['FigOpts] ['FigOpts] ['FigOpts] ['FigOpts]]))
+
+#_(analysis-type-matches 'RootMap [['FigOpts] ['FigOpts] ['FigOpts] ['FigOpts]])
+
 (defn limit-analysis-to-type [parent-type analysis]
   (filter #(= (first %) parent-type) analysis))
 
+#_(frequencies-to-pct (cons 'RootMap (map first [['FigOpts] ['FigOpts] ['FigOpts] ['FigOpts]])))
 ;; XXX
 #_(pp)
 ;; TODO still have to have a diferrent message for whole hog replacement

                  err' (unknown-key-error-helper root-type (first type-sig) key value error)]
              (if (empty? err')
                [(assoc error :Error (:Error-type error))]
                (map #(assoc %
                           :path (:path error)
                           :value (:value error)
                           :type-sig (:type-sig error)
                           :orig-error error) err'))
              ))
        errors))


    (error-help-message error)
    :break
    :break
    [:nest 2 
     (print-path (reverse (rest path))
                 leaf-node
                 orig-config)]
