                                            "The state of the object in the previous state should be consistent with the from-state of the option."))
                             succ (roll/follow-transition ha-defs prev trans time)
                             _ (soft-assert (= (get-in succ [:objects (:id opt) :state])
-                                         (:target opt))
-                                      (str "not="
-                                           (get-in succ [:objects (:id opt) :state])
-                                           (:target opt)
-                                           "The state of the object in the successor state should be consistent with the to-state of the option."))
+                                              (:target opt))
+                                           (str "not="
+                                                (get-in succ [:objects (:id opt) :state])
+                                                (:target opt)
+                                                "The state of the object in the successor state should be consistent with the to-state of the option."))
                             [rolled seen] (roll/inert-playout ha-defs succ explore-roll-limit seen)]
                         [(conj ps (concat (conj next-path succ) rolled))
                          (conj


(def world-widget
  (let [props (fn [this] (aget (.-props this) "args"))
        rescroll (fn [_ _]
                   (this-as this
                     (let [n (.getDOMNode this)
                           wld @(get (props this) :world)]
                       (set! (.-scrollLeft n) (:scroll-x wld))
                       (set! (.-scrollTop n) (- (:height wld) (:scroll-y wld))))))
        c
        (.createClass js/React
                      #js {:shouldComponentUpdate

                                           (:state opt)))
                            succ (roll/follow-transition ha-defs cur trans time)
                            _ (soft-assert (= (get-in succ [:objects (:id opt) :state])
                                              (:target opt))
                                           (str "not="
                                                (get-in succ [:objects (:id opt) :state])
                                                (:target opt)))
                            [rolled seen] (roll/inert-playout ha-defs succ explore-roll-limit seen)]
                        ;(println "steps" (count rolled))
                        [(conj ps (concat (conj next-path cur succ) rolled))
