diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-14 15:07:47 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-14 15:07:47 +0000 |
| commit | 06ebd596198185b75cb46325d3d79ea1954b4ddc (patch) | |
| tree | 282689774dcfe8e16859b06032859619d42bb31f /interp | |
| parent | 1ee95284536b4edab191b4de15fb9ad7a899286c (diff) | |
correction bug de facto des fix (2e)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5478 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 2ad76bc1e..0c9d9a66c 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -1478,6 +1478,7 @@ let rec remove_coercions_in_application inctx = function let rec rename_rawconstr_var id0 id1 = function RRef(loc,VarRef id) when id=id0 -> RRef(loc,VarRef id1) + | RVar(loc,id) when id=id0 -> RVar(loc,id1) | c -> map_rawconstr (rename_rawconstr_var id0 id1) c let rec share_fix_binders n rbl ty def = |