(def- proto-field-registry
  "Keep compile-time track of field definitions"
  @{})

(defn fields
  [sym]
  (get-in proto-field-registry [sym]))

(defn register
  [key value]
  (put proto-field-registry key value))