diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-11 20:00:27 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-12 10:39:32 +0200 |
| commit | ca300977724a6b065a98c025d400c71f41b9df4b (patch) | |
| tree | 59a2fd3327b3d0eb9cd1e11cbb31605f2a08ea27 /grammar/q_coqast.ml4 | |
| parent | 012fe1a96ba81ab0a7fa210610e3f25187baaf1d (diff) | |
Parsing evar instances.
Diffstat (limited to 'grammar/q_coqast.ml4')
| -rw-r--r-- | grammar/q_coqast.ml4 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/grammar/q_coqast.ml4 b/grammar/q_coqast.ml4 index 2bce95f1e..f59a4af32 100644 --- a/grammar/q_coqast.ml4 +++ b/grammar/q_coqast.ml4 @@ -176,7 +176,10 @@ let rec mlexpr_of_constr = function $mlexpr_of_list (mlexpr_of_list mlexpr_of_constr) substl$,[]) >> | Constrexpr.CPatVar (loc,n) -> let loc = of_coqloc loc in - <:expr< Constrexpr.CPatVar $dloc$ $mlexpr_of_pair mlexpr_of_bool mlexpr_of_ident n$ >> + <:expr< Constrexpr.CPatVar $dloc$ $mlexpr_of_ident n$ >> + | Constrexpr.CEvar (loc,n,[]) -> + let loc = of_coqloc loc in + <:expr< Constrexpr.CEvar $dloc$ $mlexpr_of_ident n$ [] >> | _ -> failwith "mlexpr_of_constr: TODO" let mlexpr_of_occ_constr = |