fixed parse error for ocaml 3.08

[helm.git] / helm / ocaml / mathql_generator / cGSearchPattern.ml

diff --git a/helm/ocaml/mathql_generator/cGSearchPattern.ml b/helm/ocaml/mathql_generator/cGSearchPattern.ml
index 7640a6b7678ec1aacbcc0802dc44f10b9fb6b938..33a9894d1696a824c9b5903916aae5a284ce99d6 100644 (file)
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -80,7 +80,8 @@ let get_constraints term =
   let rec process_type_aux kind =
    function
       C.Var (uri,expl_named_subst) ->
-       ([!!!kind, UriManager.string_of_uri uri],[],[]) @@
+       (* andrea: this is a bug: variable are not indexedin the db 
+         ([!!!kind, UriManager.string_of_uri uri],[],[]) @@ *)
          (process_type_aux_expl_named_subst kind expl_named_subst)
     | C.Rel _ ->
        (match kind with
@@ -95,12 +96,12 @@ let get_constraints term =
              match s with
                 Cic.Prop -> T.Prop
               | Cic.Set -> T.Set
-              | Cic.Type -> T.Type
+              | Cic.Type _ -> T.Type (* TASSI: ?? *)
              | Cic.CProp -> T.CProp
             in
             [],[],[!!kind,s']
          | _ -> [],[],[])
-    | C.Meta _
+    | C.Meta _ -> [],[],[] (* ???? To be understood *)
     | C.Implicit _ -> assert false
     | C.Cast (te,_) ->
        (* type ignored *)