 
 
 (defn make-reaction [f & {:keys [auto-run on-set on-dispose]}]
-  (let [reaction (Reaction. f nil true nil nil
-                            nil nil nil false)]
+  (let [reaction (Reaction. f nil true false nil nil nil)]
     (._set-opts reaction {:auto-run auto-run
                           :on-set on-set
                           :on-dispose on-dispose})

  (._handle-change this sender old new))


(deftype Reaction [f ^:mutable state ^:mutable ^boolean dirty?
                   ^:mutable watching ^:mutable watches
                   ^:mutable auto-run on-set on-dispose ^boolean nocache?]
  IAtom
  IReactiveAtom


      (set! dirty? true)
      (doseq [w wg]
        (remove-watch w this))
      (when-not (nil? (.-on-dispose this))
        (.on-dispose this s)))
    nil)

  IEquiv
