(update-current-env! ks f & args)
(defn update-current-env! [ks f & args] (set! *current-env* (apply update-in (get-current-env) ks f args)))