diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-08-31 19:55:48 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-08-31 19:55:48 +0000 |
| commit | b0579cf0d372f8d79f6f776149c7dc3f59f29181 (patch) | |
| tree | 163bcc136797388f49c571beeff32f69b30b07d8 /interp/constrintern.ml | |
| parent | dbada45eec1e3fab8e14e99660a565ee87b3700a (diff) | |
Symetrisation des changements implicites de scope
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4283 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index d1c32e998..2fc5eaade 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -501,7 +501,7 @@ let internalise sigma env allow_soapp lvar c = | CLambdaN (loc,(nal,ty)::bll,c2) -> iterate_lam loc env ty (CLambdaN (loc, bll, c2)) nal | CLetIn (loc,(_,na),c1,c2) -> - RLetIn (loc, na, intern env c1, + RLetIn (loc, na, intern (ids,impls,None,scopes) c1, intern (name_fold Idset.add na ids,impls,tmp_scope,scopes) c2) | CNotation (loc,"- _",[CNumeral(_,Bignat.POS p)]) -> let scopes = option_cons tmp_scope scopes in |