summaryrefslogtreecommitdiff
path: root/ocaml-binary-annot/camlp4/test/fixtures/if.ml
diff options
context:
space:
mode:
Diffstat (limited to 'ocaml-binary-annot/camlp4/test/fixtures/if.ml')
-rw-r--r--ocaml-binary-annot/camlp4/test/fixtures/if.ml8
1 files changed, 8 insertions, 0 deletions
diff --git a/ocaml-binary-annot/camlp4/test/fixtures/if.ml b/ocaml-binary-annot/camlp4/test/fixtures/if.ml
new file mode 100644
index 0000000000..3f9b452c92
--- /dev/null
+++ b/ocaml-binary-annot/camlp4/test/fixtures/if.ml
@@ -0,0 +1,8 @@
+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