let
node_stmt_exn v =
match
node_stmt_opt v
with
None
->
raise
Not_found
|
Some
s
->
s