   (swap! tracker assoc ::track/load nil ::track/unload nil)
   (println :ok))
 
-(defn recover-state [repl-env analyzer-env repl-opts state]
-  (eval-form repl-env
-             analyzer-env
-             repl-opts
-             `(set! ~state (.-tire_iron_state_ js/goog))))
-
-(defn print-state [repl-env analyzer-env repl-opts]
-  (println
-    (eval-form repl-env
-               analyzer-env
-               repl-opts
-               `(.-tire_iron_state_ js/goog))))
-
 (defn maybe-quoted->symbol [symbol-or-list]
   (if (list? symbol-or-list)
     (second symbol-or-list)

                             :analyzer-env analyzer-env
                             :repl-opts repl-opts}))))

     'print-tis
     (wrap (fn [repl-env analyzer-env _ repl-opts]
             (print-state repl-env
                          analyzer-env
                          repl-opts)))

     'recover-tis
     (wrap (fn [repl-env analyzer-env [_ state-sym] repl-opts]
             (recover-state repl-env
                            analyzer-env
                            repl-opts
                            (or state-sym
                                state))))

     'print-disabled
     (wrap (fn [& _]
             (prn :disabled-unload @disable-unload)

  (-refresh [this {:keys [repl-env before after state unload-nss load-nss]}]
    (eval-script repl-env
                 (str (call-sym-script before)
                      (unload-nss-script state unload-nss)
                      (load-nss-sync load-nss)
                      (call-sym-script after)))))

(defn refresh* [{:keys [refresher
