diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-04 19:22:47 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-04 19:22:47 +0000 |
| commit | 3c5b5a0871fc9af4730da06113e85bea5234ffd9 (patch) | |
| tree | b3bcae186bd1b87ee623a24d9bfa0d2a04ba44b1 /lib | |
| parent | 52aff80a4736ccaeb8610185959affb516a6bd9f (diff) | |
Timeout message was not always displayed
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11960 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index a7d2099f1..5c56fbf9b 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -22,6 +22,8 @@ let errorlabstrm l pps = raise (UserError(l,pps)) let todo s = prerr_string ("TODO: "^s^"\n") +exception Timeout + type loc = Compat.loc let dummy_loc = Compat.dummy_loc let unloc = Compat.unloc diff --git a/lib/util.mli b/lib/util.mli index 34e91215a..23fdd7670 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -32,6 +32,8 @@ val errorlabstrm : string -> std_ppcmds -> 'a val todo : string -> unit +exception Timeout + type loc = Compat.loc type 'a located = loc * 'a |