Add option iter

[tiger.ml.git] / compiler / src / lib / tiger / tiger_opt.ml

diff --git a/compiler/src/lib/tiger/tiger_opt.ml b/compiler/src/lib/tiger/tiger_opt.ml
index cdacd0e..8eee986 100644 (file)
--- a/compiler/src/lib/tiger/tiger_opt.ml
+++ b/compiler/src/lib/tiger/tiger_opt.ml
@@ -5,6 +5,9 @@ let map t f =
   | None   -> None
   | Some x -> Some (f x)
 
+let iter t ~f =
+  ignore (map t f)
+
 let get t ~default =
   match t with
   | None   -> default