diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-04-14 18:33:28 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-05-04 13:47:12 +0200 |
| commit | 8ad2627de29639b21473783195905dca6bb1c6ae (patch) | |
| tree | 87f3123c9a660daa310d172e472832051eb5f4de /ltac/tacinterp.ml | |
| parent | 011ac2d7db53f0df2849985ef9cc044574c0ddb0 (diff) | |
Getting rid of the Geninterp.generic_interp function.
Diffstat (limited to 'ltac/tacinterp.ml')
| -rw-r--r-- | ltac/tacinterp.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ltac/tacinterp.ml b/ltac/tacinterp.ml index 90784f5e8..b9d074a3d 100644 --- a/ltac/tacinterp.ml +++ b/ltac/tacinterp.ml @@ -1569,7 +1569,8 @@ and interp_genarg ist x : Val.t Ftactic.t = let q = Value.cast (topwit wit2) q in Ftactic.return (Value.of_pair (val_tag wit1) (val_tag wit2) (p, q)) | ExtraArg s -> - Geninterp.generic_interp ist (Genarg.in_gen (glbwit wit) x) + Geninterp.interp wit ist x >>= fun x -> + Ftactic.return (in_gen (Topwit wit) x) (** returns [true] for genargs which have the same meaning independently of goals. *) |