diff options
| author | Pierre-Marie Pédrot | 2016-03-21 00:19:40 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-03-21 00:19:40 +0100 |
| commit | df6132c06f9c8480b01f0a269cd1b95bbaa7f912 (patch) | |
| tree | 9260ceec0d4824c617bfad79b0d1953c5b971fd7 /interp | |
| parent | 6afe572a4448e50f18e408097dd9ed03cc432d39 (diff) | |
| parent | 87e27056beee0f7b63326d0a1cb3f68249539bee (diff) | |
Moving the last parts of the Ltac engine to hightactics.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrarg.ml | 2 | ||||
| -rw-r--r-- | interp/constrarg.mli | 5 |
2 files changed, 7 insertions, 0 deletions
diff --git a/interp/constrarg.ml b/interp/constrarg.ml index 81e942d828..46be0b8a1f 100644 --- a/interp/constrarg.ml +++ b/interp/constrarg.ml @@ -28,6 +28,8 @@ let wit_intro_pattern : (Constrexpr.constr_expr intro_pattern_expr located, glob let wit_tactic : (raw_tactic_expr, glob_tactic_expr, Val.t) genarg_type = Genarg.make0 "tactic" +let wit_ltac = Genarg.make0 ~dyn:(val_tag (topwit Stdarg.wit_unit)) "ltac" + let wit_ident = Genarg.make0 "ident" diff --git a/interp/constrarg.mli b/interp/constrarg.mli index 1197b85a25..d38b1183c5 100644 --- a/interp/constrarg.mli +++ b/interp/constrarg.mli @@ -71,6 +71,11 @@ val wit_red_expr : val wit_tactic : (raw_tactic_expr, glob_tactic_expr, Val.t) genarg_type +(** [wit_ltac] is subtly different from [wit_tactic]: they only change for their + toplevel interpretation. The one of [wit_ltac] forces the tactic and + discards the result. *) +val wit_ltac : (raw_tactic_expr, glob_tactic_expr, unit) genarg_type + val wit_clause_dft_concl : (Names.Id.t Loc.located Locus.clause_expr,Names.Id.t Loc.located Locus.clause_expr,Names.Id.t Locus.clause_expr) genarg_type (** Aliases for compatibility *) |