diff options
| author | herbelin | 2002-10-28 19:16:13 +0000 |
|---|---|---|
| committer | herbelin | 2002-10-28 19:16:13 +0000 |
| commit | b3774957b1e0504a999d17672aa0ad91ef5752f6 (patch) | |
| tree | b064c79b37ffc3be0d6896cdbd624c8be204216c /contrib/interface | |
| parent | bb1b3081034fc301ceccc1f87ed90030cc21bec4 (diff) | |
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
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/name_to_ast.ml | 5 |
1 files changed, 4 insertions, 1 deletions
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 |