   (println "make-node-fn:" (keys node))
   (if (map? node)
     (cond
-      (:operation-definitions node) (assoc node :operation-definitions children)
-      (:type-system-definitions node) (assoc node :type-system-definitions children)
-      (:node-type node) (make-node-with-node-type node children)
+      (:graphql-clj/operation-definitions node) (assoc node :graphql-clj/operation-definitions children)
+      (:graphql-clj/type-system-definitions node) (assoc node :graphql-clj/type-system-definitions children)
+      (:graphql-clj/node-type node) (make-node-with-node-type node children)
       :default (println "error: node is not a map!" node))
     (println "error: don't know how to make node from:" node "--- map?:" (map? node))))
 

  (z/zipper branch? children make-node-fn document))

(zv/defvisitor type-field-visitor :pre [n s]
  (if (= :type-field (:node-type n))
    {:node (assoc n :changed "visited")
     :state s}))


  [node]
  (println "children:" (keys node))
  (cond
    (:graphql-clj/operation-definitions node) (do
                                                (:graphql-clj/operation-definitions node))
    (:graphql-clj/type-system-definitions node) (:graphql-clj/type-system-definitions node)
    (:graphql-clj/node-type node) (node->children node)
    :default (do
               (println "error: no children for node:" node)
               nil)))
