diff options
| author | filliatr | 2001-05-11 10:31:34 +0000 |
|---|---|---|
| committer | filliatr | 2001-05-11 10:31:34 +0000 |
| commit | 2a84370dce1e0f19cea46c473b1b2d236b72d9f8 (patch) | |
| tree | c8152fafb4455b4b98991504bd9539db26b37d82 /contrib/xml/xmlcommand.ml | |
| parent | 47b37874d6b0ec1b8a5f69655d4cab417ed4a05b (diff) | |
application patch Claudio
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1746 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/xml/xmlcommand.ml')
| -rw-r--r-- | contrib/xml/xmlcommand.ml | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml index 573f4319b3..5f23c1d641 100644 --- a/contrib/xml/xmlcommand.ml +++ b/contrib/xml/xmlcommand.ml @@ -305,15 +305,16 @@ let print_term inner_types l env csr = (* coq coding of terms (the one of the logical framework) *) match T.kind_of_term cstr with T.IsRel n -> - (match List.nth l (n - 1) with - N.Name id -> - X.xml_empty "REL" - (add_sort_attribute false - ["value",(string_of_int n) ; - "binder",(N.string_of_id id) ; - "id", next_id]) - | N.Anonymous -> assert false - ) + let id = + match List.nth l (n - 1) with + N.Name id -> id + | N.Anonymous -> N.make_ident "_" None + in + X.xml_empty "REL" + (add_sort_attribute false + ["value",(string_of_int n) ; + "binder",(N.string_of_id id) ; + "id", next_id]) | T.IsVar id -> let depth = match get_depth_of_var (N.string_of_id id) with |