tjh.dev
1diff --git a/src/cmap.ml b/src/cmap.ml
2index 69f447b..3afb2b6 100644
3--- a/src/cmap.ml
4+++ b/src/cmap.ml
5@@ -173,6 +173,12 @@ end = struct
6 let of_list_with_key_multi list ~get_key =
7 Using_comparator.of_list_with_key_multi ~comparator list ~get_key
8
9+ let of_list_with_key_fold list ~get_key ~init ~f =
10+ failwith "Map.of_list_with_key_fold: not implemented yet"
11+
12+ let of_list_with_key_reduce list ~get_key ~f =
13+ failwith "Map.of_list_with_key_reduce: not implemented yet"
14+
15 let of_alist alist = Using_comparator.of_alist ~comparator alist
16
17 let of_alist_or_error alist = Using_comparator.of_alist_or_error ~comparator alist