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