From 06ebd596198185b75cb46325d3d79ea1954b4ddc Mon Sep 17 00:00:00 2001 From: barras Date: Sun, 14 Mar 2004 15:07:47 +0000 Subject: 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 --- interp/constrextern.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'interp/constrextern.ml') 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 = -- cgit v1.2.3