attributes stripped from searchPattern query (as in the new query generator)

[helm.git] / helm / ocaml / mquery_generator / mQueryGenerator.ml

diff --git a/helm/ocaml/mquery_generator/mQueryGenerator.ml b/helm/ocaml/mquery_generator/mQueryGenerator.ml
index 378a8e264e5935716e07670a88a3eba082402abd..f4d838266f3687114cf3a368e80913b27da249c2 100644 (file)
--- a/helm/ocaml/mquery_generator/mQueryGenerator.ml
+++ b/helm/ocaml/mquery_generator/mQueryGenerator.ml
@@ -496,6 +496,8 @@ let searchPattern must_use can_use =
    in
    
    (*let q_let_po = M.LetVVar ("obj_positions", M.Const opos, q_let_pr) in*)
+   
+   let query = (M.Ref (M.RefOf (q_let_po opos 1))) in
 
-print_endline "### ";  MQueryUtil.text_of_query print_string (q_let_po opos 1) "\n"; flush stdout;
-   (q_let_po opos 1)
+print_endline "### ";  MQueryUtil.text_of_query print_string query "\n"; flush stdout;
+   query