From eb52c20d08bce50911e84bb112052b77b79fc6f8 Mon Sep 17 00:00:00 2001
From: notin
Date: Tue, 22 Jan 2008 11:58:25 +0000
Subject: Récupération d'une exception Not_found

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10460 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/extraction/ocaml.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml
index 4dd829e5e9..1ed82090a3 100644
--- a/contrib/extraction/ocaml.ml
+++ b/contrib/extraction/ocaml.ml
@@ -144,7 +144,8 @@ let rec pp_type par vl t =
 
 let is_ifthenelse = function 
   | [|(r1,[],_);(r2,[],_)|] -> 
-       (find_custom r1 = "true") && (find_custom r2 = "false") 
+      (try (find_custom r1 = "true") && (find_custom r2 = "false") 
+       with Not_found -> false)
   | _ -> false
 
 let expr_needs_par = function
-- 
cgit v1.2.3