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 /checker | |
parent | e6a7182526a47f4010274128c30407ed57e51339 (diff) |
Adding a new Control file centralizing the control options of Coq.
Diffstat (limited to 'checker')
-rw-r--r-- | checker/check.mllib | 1 | ||||
-rw-r--r-- | checker/reduction.ml | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/checker/check.mllib b/checker/check.mllib index 7488a2c57..9f0bc200c 100644 --- a/checker/check.mllib +++ b/checker/check.mllib @@ -12,6 +12,7 @@ Option Store Exninfo Backtrace +Control Flags Pp_control Pp diff --git a/checker/reduction.ml b/checker/reduction.ml index 384b9ad7f..49f0a26e7 100644 --- a/checker/reduction.ml +++ b/checker/reduction.ml @@ -226,7 +226,7 @@ let rec ccnv univ cv_pb infos lft1 lft2 term1 term2 = (* Conversion between [lft1](hd1 v1) and [lft2](hd2 v2) *) and eqappr univ cv_pb infos (lft1,st1) (lft2,st2) = - Util.check_for_interrupt (); + Control.check_for_interrupt (); (* First head reduce both terms *) let rec whd_both (t1,stk1) (t2,stk2) = let st1' = whd_stack infos t1 stk1 in |