                                        :type :namespace }) additional-ns)]
     (topo-sort-files (concat (set file-msgs)
                              additional-files))))
+
 
 ;; this assumes no query string on url
 (defn add-cache-buster [url]

  (dev-assert (all? namespace-file-map? file-msgs))
  (store-meta-data-for-files! file-msgs)
  (let [current-ns    (set (map :namespace file-msgs))
        dependent-ns  (set (mapcat ns-that-depend-on current-ns))
        additional-ns (difference dependent-ns current-ns)
        additional-files (map (fn [x] { :namespace x
                                       :meta-data (get @ns-meta-data x)

    (ancestor nm nm2) -1
    :else 1))

#_(prn (keys (dependencies)))

#_(let [start (.getTime (js/Date.))]
    (prn (sort topo-compare (map name (keys (dependencies)))))
    (prn (sort topo-compare (map name (keys (dependencies)))))
    (prn (sort topo-compare (map name (keys (dependencies)))))
    (prn (sort topo-compare (map name (keys (dependencies)))))
    (prn (- (.getTime (js/Date.))
            start)))

(defn topo-compare-file-msg [f1 f2]
  (dev-assert (namespace-file-map? f1) (namespace-file-map? f2))
  (topo-compare (:namespace f1) (:namespace f2)))
