      (binding [*out* *err*]
        (let [column (:column env)
              line (:line env)]
-         (println (str "WARNING: interpreting by default at " ana/*cljs-file* ":" line ":" column))
+         (require 'cljs.analyzer)
+         (println (str "WARNING: interpreting by default at " (requiring-resolve 'cljs.analyzer/*cljs-file*) ":" line ":" column))
          (prn expr)
          (when tag
            (println "Inferred tag was:" tag)))))))

  "Infer the tag of `form` using `env`."
  [env form]
  (when env
    (let [e (ana/no-warn (ana/analyze env form))
          ;; Roman. Propagating Rum's component return tag
          ;; via :rum/tag meta field, because a component
          ;; is generated as a `def` instead of `defn`

                    (-> e :fn :info :meta :rum/tag second))]
      (if rum-tag
        (normalize-tags rum-tag)
        (when-let [tags ((requiring-resolve 'cljs.analyzer/infer-tag) env e)]
          (normalize-tags tags))))))

(declare to-js to-js-map)
