(register-default-tag-parser! f)
(defn register-default-tag-parser! [f] (let [old-parser @*default-data-reader-fn*] (swap! *default-data-reader-fn* (fn [_] f)) old-parser))