Protection des accès tableau car, sur Sparc-linux, cela engendre une erreur fatale d'ocaml

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5958 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 3 deletions

diff --git a/contrib/fourier/fourierR.ml b/contrib/fourier/fourierR.ml
index d00f1a5c6..695388130 100644
--- a/contrib/fourier/fourierR.ml
+++ b/contrib/fourier/fourierR.ml
@@ -186,10 +186,10 @@ type hineq={hname:constr; (* le nom de l'hypothèse *)
 let ineq1_of_constr (h,t) =
     match (kind_of_term t) with
        App (f,args) ->
-         let t1= args.(0) in
-         let t2= args.(1) in
          (match kind_of_term f with
-           Const c ->
+           Const c when Array.length args = 2 ->
+             let t1= args.(0) in
+             let t2= args.(1) in
             (match (string_of_R_constant c) with
 		 "Rlt" -> [{hname=h;
                            htype="Rlt";