From b0579cf0d372f8d79f6f776149c7dc3f59f29181 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Sun, 31 Aug 2003 19:55:48 +0000
Subject: Symetrisation des changements implicites de scope

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

(limited to 'interp/constrintern.ml')

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
-- 
cgit v1.2.3