From 6f600fd1c528c97f7d2e1016af1650ab62b2b4c1 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Fri, 19 Nov 1999 10:03:07 +0000
Subject: Version préliminaire
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/pretyping/astterm.ml b/pretyping/astterm.ml
index 05acff9d7..699a77c49 100644
--- a/pretyping/astterm.ml
+++ b/pretyping/astterm.ml
@@ -300,6 +300,7 @@ let ref_from_constr = function
    else RConst (sp,ids_of_ctxt ctxt)
   | DOPN (MutConstruct (spi,j),ctxt) -> Construct ((spi,j),ids_of_ctxt ctxt)
   | DOPN (MutInd (sp,i),ctxt) -> Ind (sp,i,ids_of_ctxt ctxt)
+  | VAR id -> Var id  (* utilisé dans trad pour coe_value (tmp) *)
   | _ -> anomaly "Not a reference"
 
 let dbize_ref k sigma env loc s =
-- 
cgit v1.2.3