From 81c9fa0de99400b51c029cdbd1519b4f724e320a Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Thu, 17 Nov 2016 13:06:07 +0100
Subject: fake_ide: use the now available Status XML message

---
 tools/fake_ide.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml
index 8fcca535d1..214dfb4703 100644
--- a/tools/fake_ide.ml
+++ b/tools/fake_ide.ml
@@ -266,11 +266,9 @@ let eval_print l coq =
       let to_id, _ = get_id id in
       eval_call (query (phrase, to_id)) coq
   | [ Tok(_,"WAIT") ] ->
-      let phrase = "Stm Wait." in
-      eval_call (query (phrase,tip_id())) coq
+      eval_call (status false) coq
   | [ Tok(_,"JOIN") ] ->
-      let phrase = "Stm JoinDocument." in
-      eval_call (query (phrase,tip_id())) coq
+      eval_call (status true) 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