From b820ff40cb8053df01ac422f36d5f3520727b5c6 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 19 Dec 2003 18:20:53 +0000
Subject: Substitution dans REvar et PEvar plutot que encodage via noeud
 application pour eviter la confusion avec la (vraie) application

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5114 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 0f68f03143..84be738495 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -699,7 +699,7 @@ let internalise sigma env allow_soapp lvar c =
     | CPatVar (loc, _) ->
 	raise (InternalisationError (loc,NegativeMetavariable))
     | CEvar (loc, n) ->
-	REvar (loc, n)
+	REvar (loc, n, None)
     | CSort (loc, s) ->
 	RSort(loc,s)
     | CCast (loc, c1, c2) ->
-- 
cgit v1.2.3