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/reserve.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'interp/reserve.ml')

diff --git a/interp/reserve.ml b/interp/reserve.ml
index dc7393c671..8b759b6aa3 100644
--- a/interp/reserve.ml
+++ b/interp/reserve.ml
@@ -62,7 +62,7 @@ let rec unloc = function
   | RSort (_,x) -> RSort (dummy_loc,x)
   | RHole (_,x)  -> RHole (dummy_loc,x)
   | RRef (_,x) -> RRef (dummy_loc,x)
-  | REvar (_,x) -> REvar (dummy_loc,x)
+  | REvar (_,x,l) -> REvar (dummy_loc,x,l)
   | RPatVar (_,x) -> RPatVar (dummy_loc,x)
   | RDynamic (_,x) -> RDynamic (dummy_loc,x)
 
-- 
cgit v1.2.3