diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-16 16:50:11 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-16 16:50:11 +0000 |
commit | 1df36fc5bcfa52dde043be9ea6bceb2b111b58f2 (patch) | |
tree | 416d367b6493a697252d8e53288e45a9fad90106 /kernel/vm.ml | |
parent | 496ee9e9cc76afe0a2257f94c9e0903540749242 (diff) |
removed a potentially dangerous try ... with _ -> ...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13289 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/vm.ml')
-rw-r--r-- | kernel/vm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/vm.ml b/kernel/vm.ml index 1f57457d7..241ff484c 100644 --- a/kernel/vm.ml +++ b/kernel/vm.ml @@ -473,7 +473,7 @@ let current_cofix vcf = else find_cofix (pos+1) else raise Not_found in try find_cofix 0 - with _ -> assert false + with Not_found -> assert false let check_cofix vcf1 vcf2 = (current_cofix vcf1 = current_cofix vcf2) && |