From c0ede4cf1df2ee4b8ac5e8f3d01d104021d00882 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 27 Nov 2000 11:01:55 +0000
Subject: Prise en compte des implicites de locaux à l'affichage

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@983 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/termast.ml | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/parsing/termast.ml b/parsing/termast.ml
index 7025bfde44..1cacd9b3e3 100644
--- a/parsing/termast.ml
+++ b/parsing/termast.ml
@@ -149,15 +149,6 @@ let explicitize =
     | [] -> List.rev lastimplargs
   in exprec 1 []
 
-(*
-let implicit_of_ref = function
-  | ConstructRef sp -> constructor_implicits_list sp
-  | IndRef sp -> inductive_implicits_list sp
-  | ConstRef sp -> constant_implicits_list sp
-  | VarRef sp -> (try implicits_of_var sp with _ -> [])
-  | _ -> []
-*)
-
 let rec skip_coercion dest_ref (f,args as app) =
   if !print_coercions then app
   else
@@ -205,7 +196,14 @@ let rec ast_of_raw = function
       let astargs = List.map ast_of_raw args in
       (match f with 
 	 | RRef (_,ref) -> ast_of_app (implicits_of_global ref) astf astargs
-	 | _           -> ast_of_app [] astf astargs)
+	 | RVar (_,id) ->
+	     let imp =
+	       try 
+		 let ref = Nametab.locate (make_qualid [] (string_of_id id)) in
+		 implicits_of_global ref
+	       with Not_found -> [] in
+	     ast_of_app imp astf astargs
+	 | _       -> ast_of_app [] astf astargs)
   | RBinder (_,BProd,Anonymous,t,c) ->
       (* Anonymous product are never factorized *)
       ope("PROD",[ast_of_raw t; slam(None,ast_of_raw c)])
-- 
cgit v1.2.3