Source

compiler-libs-hack / fix_4.01.0 / test / optional.ml

Full commit
1
2
3
4
5
6
7
let f ?l = 1

let f ?(l=1) () = 1 + l

let f ?(l=1) ?(r=2) () = l + r

let f ?(l=1) ?(r=2) () = l + r