From 36da868408c3d73efa1b60c8185e5db25257534e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 18 Dec 2000 22:58:51 +0000
Subject: Suppression de l'affichage des instances des ?n

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

diff --git a/parsing/termast.ml b/parsing/termast.ml
index cd708e3040..8e7cc12af2 100644
--- a/parsing/termast.ml
+++ b/parsing/termast.ml
@@ -195,7 +195,10 @@ let rec ast_of_raw = function
       let astf = ast_of_raw f in
       let astargs = List.map ast_of_raw args in
       (match f with 
+	 | RRef (_,(EvarRef _ as ref)) ->
+	     ast_of_ref ast_of_raw ref (* we drop args *)
 	 | RRef (_,ref) -> ast_of_app (implicits_of_global ref) astf astargs
+
 	 | RVar (_,id) ->
 	     let imp =
 	       try 
-- 
cgit v1.2.3