     table))
 
 
-(defn- -dirty?
-  "Internal `dirty?` implementation."
+
+;; ## Table Persistence
+
+(defn dirty?
+  "True if the table has local non-persisted modifications."
   [^Table table]
   (.dirty table))
 

    nil))


(defn ^:no-doc load-table
  "Load a table node from the store."
  [store table-name target]
  (let [node (mdag/get-node store target)]

     (list))))



;; ## Record Updates

(defn- update-pending
  "Returns a new `Table` value with the given function applied to update its
  pending data."
  [^Table table f & args]
  (let [patch' (apply f (.pending table) args)]
    (if (= patch' (.pending table))
      table
      (->Table
        (.store table)
        (dissoc (.table-info table) ::node/id)
        (.root-data table)
        patch'
        true
        (._meta table)))))


(defn- record-updater
  "Construct a new record updating function from the given options. The
  resulting function accepts three arguments, the record key, the existing
