diff options
| author | letouzey | 2013-03-12 23:59:39 +0000 |
|---|---|---|
| committer | letouzey | 2013-03-12 23:59:39 +0000 |
| commit | 701381d9280fa6948a4ab8ab4ad36c8674bad903 (patch) | |
| tree | 9e4dd83d6dbc7aafa7e556a522ad8e9058012f8d /checker | |
| parent | 8aa2e600d375caffef47058f1d095777a0dfdbb0 (diff) | |
Restrict (try...with...) to avoid catching critical exn (part 2)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16277 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/declarations.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/checker/declarations.ml b/checker/declarations.ml index 5034604220..69dd261308 100644 --- a/checker/declarations.ml +++ b/checker/declarations.ml @@ -139,10 +139,8 @@ let solve_delta_kn resolve kn = make_kn new_mp dir l let gen_of_delta resolve x kn fix_can = - try - let new_kn = solve_delta_kn resolve kn in - if kn == new_kn then x else fix_can new_kn - with _ -> x + let new_kn = solve_delta_kn resolve kn in + if kn == new_kn then x else fix_can new_kn let constant_of_delta resolve con = let kn = user_con con in |