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