let remove_exn t k = ensure_can_modify t; match remove t k with | `No_such_key -> raise (Remove_unknown_key k) | `Ok -> ()