     (assert name "fragment name is NULL for fragment-definition!")
     (assoc definition :node-type k :section :fragment-definitions)))
 
-(def type-system-type->kind
+(def node-type->kind
   {:type-definition      :OBJECT
    :input-definition     :INPUT_OBJECT
    :union-definition     :UNION

                        :enum-fields       :fields
                        :input-type-fields :fields
                        :directive-on-name :on})
      (assoc :kind (get type-system-type->kind (:node-type definition)))))

(def ^:private transformations
  "Map from transformation functions to tree tags.

(defn- to-type-names [_ & args] {:type-names (mapv :type-name args)})
(defn- to-list [_ arg] {:node-type :list :inner-type arg :kind :LIST})
(defn- add-required [_ arg] (assoc arg :required true))
(defn- to-document [_ & args] (group-by :section args))

(defn- to-type-system-type [k & args]
  (-> (into {:node-type k} args)
