diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-03 17:13:52 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-03 17:13:52 +0000 |
| commit | ffb5a81a10636b4c7b8c44c3c1c7890b4d437a78 (patch) | |
| tree | cc65333a01ecf0f075be67c6096ddc25e544c1c2 /plugins/xml | |
| parent | f77f93ecef9362548dae8886affe7a4bdcc150f6 (diff) | |
plugins/xml: kill two warnings
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13065 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/xml')
| -rw-r--r-- | plugins/xml/proofTree2Xml.ml4 | 1 | ||||
| -rw-r--r-- | plugins/xml/xmlcommand.ml | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/plugins/xml/proofTree2Xml.ml4 b/plugins/xml/proofTree2Xml.ml4 index dcfa99792..e88bb840a 100644 --- a/plugins/xml/proofTree2Xml.ml4 +++ b/plugins/xml/proofTree2Xml.ml4 @@ -195,6 +195,7 @@ Pp.ppnl (Pp.(++) (Pp.str | {PT.ref=None;PT.goal=goal} -> X.xml_empty "Open_goal" of_attribute + | {PT.ref=Some(PT.Decl_proof _, _)} -> failwith "TODO: xml and decl_proof" in [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ; X.xml_cdata ("<!DOCTYPE ProofTree SYSTEM \""^prooftreedtdname ^"\">\n\n"); diff --git a/plugins/xml/xmlcommand.ml b/plugins/xml/xmlcommand.ml index 8a095bb24..676863b78 100644 --- a/plugins/xml/xmlcommand.ml +++ b/plugins/xml/xmlcommand.ml @@ -551,7 +551,8 @@ let print_ref qid fn = (* where dest is either None (for stdout) or (Some filename) *) (* pretty prints via Xml.pp the proof in progress on dest *) let show_pftreestate internal fn (kind,pftst) id = - Util.anomaly "Xmlcommand.show_pftreestate is not supported in this version." + if true then + Util.anomaly "Xmlcommand.show_pftreestate is not supported in this version." let show fn = let pftst = Pfedit.get_pftreestate () in |