let win_remove (wr: win_ref) (b: b)
  : b =
    begin match win_assoc wr b with
    | None -> b
    | Some(w) ->
        let b' = page_remove w.win_page b in
        let windows' = List.remove_assoc wr b'.browser_windows in
        { b' with browser_windows = windows' }
    end