Meta no longer raise a failure. Instead they return an empty set of

[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..559bee6d92dc4d61f926d5f81e48a328f40d4125 100644 (file)
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -100,7 +100,7 @@ let get_constraints term =
             in
             [],[],[!!kind,s']
          | _ -> [],[],[])
-    | C.Meta _
+    | C.Meta _ -> [],[],[] (* ???? To be understood *)
     | C.Implicit _ -> assert false
     | C.Cast (te,_) ->
        (* type ignored *)