                                   (and (load-set a) (load-set b)
                                        (before? load-order a b)))
                                 (concat dependency-pairs dependent-pairs)))
-        unload-order-violations (set
-                                 (filter
-                                  (fn [[a b]]
-                                    (and (unload-set a) (unload-set b)
-                                         (before? unload-order b a)))
-                                  (concat dependency-pairs dependent-pairs)))]
+        unload-order-violations (if check-unload?
+                                  (set
+                                   (filter
+                                    (fn [[a b]]
+                                      (and (unload-set a) (unload-set b)
+                                           (before? unload-order b a)))
+                                    (concat dependency-pairs dependent-pairs)))
+                                  nil)]
     (if (or (seq load-order-violations)
             (seq unload-order-violations))
       {:load (seq load-order-violations)



(defn wrong-tracker-load-unload-order
  "Returns nil if the tracker has load and unload orders that are
consistent with its :dependencies and :dependents graphs.  If there
are inconsistencies, returns a map containing either or both of the
keys :load or :unload, where the values are a collection of 2-element
vectors [a b] where a and b are symbols representing namespace names,
and a requires or uses b, and that dependency order is violated by the
load or unload order in the tracker."
  [tracker]
  (let [load-order (:dolly.copieddeps.tns.clojure.tools.namespace.track/load tracker)
        load-set (set load-order)
        unload-order (:dolly.copieddeps.tns.clojure.tools.namespace.track/unload tracker)

graph->image."
  [ns-info]
  (let [show-opts (:namespace-show-opts ns-info)
        nss-reverse-load-order (reverse (:dolly.copieddeps.tns.clojure.tools.namespace.track/load ns-info))
;;        _ (println "jafinger-dbg: ns-info->graph-args nss-reverse-load-order=" (seq nss-reverse-load-order))
        nss-set (set nss-reverse-load-order)
        deps (:dolly.copieddeps.tns.clojure.tools.namespace.track/deps ns-info)
        dependencies (:dependencies deps)
        nodes (set/union
