From 1e4466090d227f7eef742503996b44c9e06cb8a3 Mon Sep 17 00:00:00 2001
From: mohring
Date: Fri, 29 Mar 2002 14:02:40 +0000
Subject: Correction bug infix sur des varaiables

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

diff --git a/parsing/termast.ml b/parsing/termast.ml
index 547dcd759b..0ce85209b9 100644
--- a/parsing/termast.ml
+++ b/parsing/termast.ml
@@ -110,7 +110,7 @@ let ast_of_ref = function
   | ConstRef sp -> ast_of_constant_ref sp
   | IndRef sp -> ast_of_inductive_ref sp
   | ConstructRef sp -> ast_of_constructor_ref sp
-  | VarRef id -> ast_of_qualid (make_qualid empty_dirpath id)
+  | VarRef id -> nvar id
 
 (**********************************************************************)
 (* conversion of patterns                                             *)
-- 
cgit v1.2.3