From 954f1697fb750eecf4612bbb191a91c3a4bafb7c Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Fri, 18 Nov 2016 08:38:12 +0100
Subject: Revert "fake_ide: use the now available Status XML message"

This reverts commit 81c9fa0de99400b51c029cdbd1519b4f724e320a.
---
 tools/fake_ide.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml
index 214dfb4703..8fcca535d1 100644
--- a/tools/fake_ide.ml
+++ b/tools/fake_ide.ml
@@ -266,9 +266,11 @@ let eval_print l coq =
       let to_id, _ = get_id id in
       eval_call (query (phrase, to_id)) coq
   | [ Tok(_,"WAIT") ] ->
-      eval_call (status false) coq
+      let phrase = "Stm Wait." in
+      eval_call (query (phrase,tip_id())) coq
   | [ Tok(_,"JOIN") ] ->
-      eval_call (status true) coq
+      let phrase = "Stm JoinDocument." in
+      eval_call (query (phrase,tip_id())) coq
   | [ Tok(_,"ASSERT"); Tok(_,"TIP"); Tok(_,id) ] ->
       let to_id, _ = get_id id in
       if not(Stateid.equal (Document.tip doc) to_id) then error "Wrong tip"
-- 
cgit v1.2.3