diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-06 01:32:11 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-06 01:36:50 +0100 |
| commit | fd186f119d5bb77bb2ece2c2591443c9140d673c (patch) | |
| tree | 5b65224dface7fe0179117ab91dae975605bf978 | |
| parent | 00df486efd76070b6c3673071050565e0ed4466e (diff) | |
Fixing interpretation of tactics in terms. It was forgetting part of the
environment.
| -rw-r--r-- | interp/constrintern.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index a1faf95e2..48c9ca47a 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1558,6 +1558,7 @@ let internalize globalenv env allow_patvar lvar c = let ntnvars = Id.Map.domain ntnvars in let lvars = Id.Set.union lvars cvars in let lvars = Id.Set.union lvars ntnvars in + let lvars = Id.Set.union lvars env.ids in let ist = { Genintern.ltacvars = lvars; ltacrecvars = Id.Map.empty; |