diff options
| author | Maxime Dénès | 2016-11-18 08:38:12 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2016-11-18 08:38:12 +0100 |
| commit | 954f1697fb750eecf4612bbb191a91c3a4bafb7c (patch) | |
| tree | b83393e89cc7e057a6ebcab574153198d8a5d4d1 | |
| parent | 81c9fa0de99400b51c029cdbd1519b4f724e320a (diff) | |
Revert "fake_ide: use the now available Status XML message"
This reverts commit 81c9fa0de99400b51c029cdbd1519b4f724e320a.
| -rw-r--r-- | tools/fake_ide.ml | 6 |
1 files 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" |