aboutsummaryrefslogtreecommitdiffhomepage
path: root/interp/constrextern.ml
diff options
context:
space:
mode:
Diffstat (limited to 'interp/constrextern.ml')
-rw-r--r--interp/constrextern.ml1
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 =