diff options
| author | herbelin | 2003-12-19 18:20:53 +0000 |
|---|---|---|
| committer | herbelin | 2003-12-19 18:20:53 +0000 |
| commit | b820ff40cb8053df01ac422f36d5f3520727b5c6 (patch) | |
| tree | 56005796146af1aaf2120c2e76afdce49a89b0c0 /interp/reserve.ml | |
| parent | 3b59ca927cba26b3bfbf53f22c3783bfa03b9f32 (diff) | |
Substitution dans REvar et PEvar plutot que encodage via noeud application pour eviter la confusion avec la (vraie) application
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5114 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/reserve.ml')
| -rw-r--r-- | interp/reserve.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/reserve.ml b/interp/reserve.ml index dc7393c671..8b759b6aa3 100644 --- a/interp/reserve.ml +++ b/interp/reserve.ml @@ -62,7 +62,7 @@ let rec unloc = function | RSort (_,x) -> RSort (dummy_loc,x) | RHole (_,x) -> RHole (dummy_loc,x) | RRef (_,x) -> RRef (dummy_loc,x) - | REvar (_,x) -> REvar (dummy_loc,x) + | REvar (_,x,l) -> REvar (dummy_loc,x,l) | RPatVar (_,x) -> RPatVar (dummy_loc,x) | RDynamic (_,x) -> RDynamic (dummy_loc,x) |