From 1df36fc5bcfa52dde043be9ea6bceb2b111b58f2 Mon Sep 17 00:00:00 2001
From: barras
Date: Fri, 16 Jul 2010 16:50:11 +0000
Subject: removed a potentially dangerous try ... with _ -> ...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13289 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/vm.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/vm.ml')

diff --git a/kernel/vm.ml b/kernel/vm.ml
index 1f57457d74..241ff484c1 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) &&
-- 
cgit v1.2.3