let
replace_exn t k v =
match
replace t k v
with
|
`
No_such_key
->
raise
Not_found
|
`
Ok
->
()