diff options
author | 2009-07-20 13:03:25 +0000 | |
---|---|---|
committer | 2009-07-20 13:03:25 +0000 | |
commit | 45b27e6f0a304cfd8fee31e901151c6ed7bac1bf (patch) | |
tree | c989a305fe6877d1753bb9f649f0a0a741b14414 /myocamlbuild.ml | |
parent | 54861297c8f837cc7617b52737811c30356b6ad7 (diff) |
Use camlp4 to accept some specific non-exhaustive patterns in groebner
The camlp4 extension "refutpat" provides a syntax let* for pattern
that are non-exhaustive on purpose (e.g. let* x::l = foo in ...).
A Failure is raised if the pattern doesn't match the expression.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12245 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'myocamlbuild.ml')
-rw-r--r-- | myocamlbuild.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/myocamlbuild.ml b/myocamlbuild.ml index f8d5d0681..104231f97 100644 --- a/myocamlbuild.ml +++ b/myocamlbuild.ml @@ -111,6 +111,7 @@ let libcoqrun = "kernel/byterun/libcoqrun.a" let grammar = "parsing/grammar.cma" let qconstr = "parsing/q_constr.cmo" +let refutpat = "lib/refutpat.cmo" let initialcoq = "states/initial.coq" let init_vo = ["theories/Init/Prelude.vo";"theories/Init/Logic_Type.vo"] @@ -253,6 +254,7 @@ let extra_rules () = begin flag_and_dep ["is_ml4"; "p4mod"; "use_grammar"] (P grammar); flag_and_dep ["is_ml4"; "p4mod"; "use_constr"] (P qconstr); + flag_and_dep ["is_ml4"; "p4mod"; "use_refutpat"] (P refutpat); (** Special case of toplevel/mltop.ml4: - mltop.ml will be the old mltop.optml and be used to obtain mltop.cmx |