Define MIPS word size
[tiger.ml.git] / compiler / src / lib / tiger / tiger_opt.ml
... / ...
CommitLineData
1type 'a t = 'a option
2
3let map t f =
4 match t with
5 | None -> None
6 | Some x -> Some (f x)
7
8let iter t ~f =
9 ignore (map t f)
10
11let get t ~default =
12 match t with
13 | None -> default
14 | Some x -> x
This page took 0.019993 seconds and 4 git commands to generate.