diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-07 00:28:29 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-07 01:20:25 +0200 |
commit | 24a0df63c1844c6f2c69f9644a3059d668fd1e6f (patch) | |
tree | 950372175994d0f5211b984a63bfee039cac4ebe /plugins/cc/ccalgo.ml | |
parent | e6a7182526a47f4010274128c30407ed57e51339 (diff) |
Adding a new Control file centralizing the control options of Coq.
Diffstat (limited to 'plugins/cc/ccalgo.ml')
-rw-r--r-- | plugins/cc/ccalgo.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/plugins/cc/ccalgo.ml b/plugins/cc/ccalgo.ml index c726fd5de..50b647e44 100644 --- a/plugins/cc/ccalgo.ml +++ b/plugins/cc/ccalgo.ml @@ -574,7 +574,7 @@ let is_redundant state id args = with Not_found -> false let add_inst state (inst,int_subst) = - check_for_interrupt (); + Control.check_for_interrupt (); if state.rew_depth > 0 then if is_redundant state inst.qe_hyp_id int_subst then debug (str "discarding redundant (dis)equality") @@ -955,7 +955,7 @@ let find_instances state = debug (str "Running E-matching algorithm ... "); try while true do - check_for_interrupt (); + Control.check_for_interrupt (); do_match state res pb_stack done; anomaly (Pp.str "get out of here !") @@ -966,7 +966,7 @@ let rec execute first_run state = debug (str "Executing ... "); try while - check_for_interrupt (); + Control.check_for_interrupt (); one_step state do () done; match check_disequalities state with |