(defn mark-transitions
{:pass-info {:walk :post :depends #{} :after an-jvm/default-passes}}
[{:keys [op fn] :as ast}]
(let [transitions (-> (env/deref-env) :passes-opts :mark-transitions/transitions)]
(if (and (= op :invoke)
(= (:op fn) :var)
(contains? transitions (var-name (:var fn))))
(merge ast
{:op :transition
:name (get transitions (var-name (:var fn)))})
ast)))