 
   IPrintWithWriter
   (-pr-writer [a writer opts]
-    (-write writer "#<Cursor: ")
+    (-write writer (str "#<Cursor: " path " "))
     (pr-writer (._peek a) writer opts)
     (-write writer ">"))
 

      (RCursor. path src nil))
    (do
      (assert (or (satisfies? IDeref src)
                  (ifn? src))
              "src must be an atom or a function")
      (RCursor. src path nil))))

(defprotocol IDisposable

(defprotocol IComputedImpl
  (-update-watching [this derefed])
  (-handle-change [k sender oldval newval]))

(deftype Reaction [f ^:mutable state ^:mutable dirty? ^:mutable active?
                   ^:mutable watching ^:mutable watches
