diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-04-10 16:09:22 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-04-10 19:43:07 +0200 |
commit | cbd7317516eaac4a5f37c896da5ea984ec1bb77a (patch) | |
tree | 39b5c58f9db3a2d47220f7586ac9af2cfce1d272 /ide/ideutils.ml | |
parent | 4ec840d145927b0dd6ec1040a8a5ff573a0d7685 (diff) |
CoqIDE: removing a timer may raise an exception
Diffstat (limited to 'ide/ideutils.ml')
-rw-r--r-- | ide/ideutils.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index 2ae46fc7e..d8ca34f98 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -130,7 +130,10 @@ let mktimer () = kill = (fun () -> match !timer with | None -> () - | Some id -> GMain.Timeout.remove id; timer := None) } + | Some id -> + (try GMain.Timeout.remove id + with Glib.GError _ -> ()); + timer := None) } let last_dir = ref "" |