let
find_in_ctrl sgn =
match
sgn.in_ctrl
with
|
Some
i
->
i
|
None
->
raise
Not_found