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 /lib/util.ml | |
parent | e6a7182526a47f4010274128c30407ed57e51339 (diff) |
Adding a new Control file centralizing the control options of Coq.
Diffstat (limited to 'lib/util.ml')
-rw-r--r-- | lib/util.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/lib/util.ml b/lib/util.ml index 9ade75147..16b5f4615 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -124,9 +124,3 @@ let delayed_force f = f () type ('a, 'b) union = ('a, 'b) CSig.union = Inl of 'a | Inr of 'b type 'a until = 'a CSig.until = Stop of 'a | Cont of 'a - -(*s interruption *) - -let interrupt = ref false -let check_for_interrupt () = - if !interrupt then begin interrupt := false; raise Sys.Break end |