From ffb5a81a10636b4c7b8c44c3c1c7890b4d437a78 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Thu, 3 Jun 2010 17:13:52 +0000
Subject: plugins/xml: kill two warnings

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13065 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/xml/xmlcommand.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'plugins/xml/xmlcommand.ml')

diff --git a/plugins/xml/xmlcommand.ml b/plugins/xml/xmlcommand.ml
index 8a095bb245..676863b782 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
-- 
cgit v1.2.3