let
set_exn s ~index ~v =
match
set s ~index ~v
with
None
->
invalid_arg
"set_exn"
|
Some
s
->
s