- (match M.node_get_name node with
- None -> "selection_changed on nothing"
- | Some s -> "selection changed on " ^ M.string_of_mDOMString s
+ (match node with
+ None -> "selection_changed on nothing"
+ | Some node ->
+ match M.node_get_name node with
+ None -> "selection_changed on a node without name"
+ | Some s -> "selection changed on " ^ M.string_of_mDOMString s