let node_update (dr: node_ref) (dn: node) (b: b)
  : b =
    let nodes' = upd_assoc dr dn b.browser_nodes in
    { b with browser_nodes = nodes' }