From 1a4a7fa6dbd7c43c5d6c99297d1b6c5c497c0589 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 9 Nov 2009 18:05:13 +0000
Subject: A bit of cleaning around name generation + creation of dedicated file
 namegen.ml

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12485 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/implicit_quantifiers.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'interp/implicit_quantifiers.ml')

diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml
index f9ac88e6bc..123998411b 100644
--- a/interp/implicit_quantifiers.ml
+++ b/interp/implicit_quantifiers.ml
@@ -203,7 +203,7 @@ let generalizable_vars_of_rawconstr ?(bound=Idset.empty) ?(allowed=Idset.empty)
       vars
 
 let rec make_fresh ids env x =
-  if is_freevar ids env x then x else make_fresh ids env (Nameops.lift_ident x)
+  if is_freevar ids env x then x else make_fresh ids env (Nameops.lift_subscript x)
 
 let next_ident_away_from id avoid = make_fresh avoid (Global.env ()) id
 
-- 
cgit v1.2.3