let
register_event_opt m n v =
match
v
with
|
None
->
()
|
Some
f
->
Node
.register_event m n f ()