             requires)))
 
 
-(defn infer-macro-use [env {:keys [op uses name] :as ast}]
+(defn infer-macro-use [_ {:keys [op uses name] :as ast}]
   (if (or (not= :ns op)
           (empty? uses))
     ast

                (if (nil? macros)
                  ast
                  (let [update-fn (fn [current]
                                    (update-in ast [:require-macros] assoc used-name used-ns))]

                    (swap! env/*compiler* update-in [::ana/namespaces name] update-fn)
                    (update-fn ast))

                                         (conj m var-name)
                                         m))
                                     #{}))]

          (swap! env/*compiler* assoc-in [::ana/namespaces name :macros] macros)
          (assoc ast :macros macros)
          ))))

(defn infer-macro-require [_ {:keys [op requires name] :as ast}]
  (if (or (not= :ns op)
          (empty? requires))
    ast
