ocaml/camlp4/test/fixtures/if.ml

9 lines
194 B
Standard ML

let x = if x then a else b in x
let x = if StringSet.mem "*" sections then a else b in x
let x =
if StringSet.mem "*" sections then fun _ -> true else
fun x -> StringSet.mem x sections
in x