From 24a0df63c1844c6f2c69f9644a3059d668fd1e6f Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Sat, 7 Jun 2014 00:28:29 +0200 Subject: Adding a new Control file centralizing the control options of Coq. --- plugins/cc/ccalgo.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'plugins/cc/ccalgo.ml') 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 -- cgit v1.2.3