Merge pull request #3 from emillon/tail-recursive-list-map

Use tail-recursive List.map
ocaml-dune · Jun 16, 2020 · c862e1f · c862e1f
2 parents 02ce4f0 + 5017c22
commit c862e1f
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/pp.ml b/src/pp.ml
@@ -1,4 +1,9 @@
-module List = ListLabels
+module List = struct
+  include ListLabels
+
+  let map ~f t = rev (rev_map ~f t)
+end
+
 module String = StringLabels
 
 type +'a t =