From b3774957b1e0504a999d17672aa0ad91ef5752f6 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 28 Oct 2002 19:16:13 +0000
Subject: Des critères plus fins d'analyse des implicites automatiques;
 meilleur affichage des implicites en cas d'application partielle ou inférence
 via une position flexible; gestion des implicites en positions terminales
 pour anticiper sur un implicite dans nil et cie

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3185 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/interface/name_to_ast.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'contrib/interface')

diff --git a/contrib/interface/name_to_ast.ml b/contrib/interface/name_to_ast.ml
index 0ae3b2d821..ef232d0dca 100644
--- a/contrib/interface/name_to_ast.ml
+++ b/contrib/interface/name_to_ast.ml
@@ -42,7 +42,7 @@ let convert_env =
 
 (* This function is directly inspired by print_impl_args in pretty.ml *)
 
-let impl_args_to_string = function
+let impl_args_to_string_by_pos = function
     [] -> None
   | [i] -> Some(" position " ^ (string_of_int i) ^ " is implicit.")
   | l -> Some (" positions " ^
@@ -52,6 +52,9 @@ let impl_args_to_string = function
 
 (* This function is directly inspired by implicit_args_id in pretty.ml *)
 
+let impl_args_to_string l = 
+  impl_args_to_string_by_pos (positions_of_implicits l)
+
 let implicit_args_id_to_ast_list id l ast_list = 
     (match impl_args_to_string l with
            None -> ast_list
-- 
cgit v1.2.3