[sledge] Change Map.to_list to return bindings in order

Reviewed By: jvillard

Differential Revision: D25883729

fbshipit-source-id: cd019b28d

sledge/nonstdlib/map.ml

@@ -188,7 +188,8 @@ end) : S with type key = Key.t = struct
   let keys = M.keys
   let values = M.values
   let to_iter = M.to_iter
-  let to_list = M.to_list
+  let to_list = M.bindings
+  let to_list_rev = M.to_list
   let of_iter = M.of_iter
   let of_list = M.of_list
 

sledge/nonstdlib/map_intf.ml

@@ -122,6 +122,7 @@ module type S = sig
   val values : 'a t -> 'a iter
   val to_iter : 'a t -> (key * 'a) iter
   val to_list : 'a t -> (key * 'a) list
+  val to_list_rev : 'a t -> (key * 'a) list
   val of_iter : (key * 'a) iter -> 'a t
   val of_list : (key * 'a) list -> 'a t