diff options
| author | notin | 2008-01-22 11:58:25 +0000 |
|---|---|---|
| committer | notin | 2008-01-22 11:58:25 +0000 |
| commit | eb52c20d08bce50911e84bb112052b77b79fc6f8 (patch) | |
| tree | 9cfeaaa4da5c2bb7fc9a90b0665af339d188a741 | |
| parent | 0307b15f2f51e8b1b26d1de46236befbbe8ed720 (diff) | |
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
| -rw-r--r-- | contrib/extraction/ocaml.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 |