diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-11-17 13:06:07 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-11-17 13:06:24 +0100 |
commit | 81c9fa0de99400b51c029cdbd1519b4f724e320a (patch) | |
tree | fc489fd25b9faafa7ed6078139eb3abc5f5a9b7b /tools/fake_ide.ml | |
parent | b00e039b957b8428c21faec5c76f3a3484cde2cf (diff) |
fake_ide: use the now available Status XML message
Diffstat (limited to 'tools/fake_ide.ml')
-rw-r--r-- | tools/fake_ide.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml index 8fcca535d..214dfb470 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" |