(defn make-env [input-env crossing-env]
(assoc (an-jvm/empty-env)
:locals (into {}
(if (nested-go? input-env)
(for [[l expr] input-env
:let [local (get crossing-env l)]]
[local (-> expr
(assoc :form local)
(assoc :name local))])
(for [l (keys input-env)
:let [local (get crossing-env l)]]
[local {:op :local
:form local
:name local}])))))