Lines Matching refs:key
19 key: 'a; RecordField
24 let create key value = {
25 key = key;
30 let empty key = {
31 key = key;
36 let get_key node = node.key
55 let mem_node nodes key =
56 List.exists (fun n -> n.Node.key = key) nodes
58 let find_node nodes key =
59 List.find (fun n -> n.Node.key = key) nodes
61 let replace_node nodes key node =
64 | h :: tl when h.Node.key = key -> node :: tl
69 let remove_node nodes key =
72 | h :: tl when h.Node.key = key -> tl
81 f node.Node.key node.Node.value;
99 fold f node.Node.children (f node.Node.key node.Node.value accu)
140 f node.Node.key node.Node.value;