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