X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteEngine.ml;h=10cf1b8cbc41e3171f83a6e01300f6822ff2c91f;hb=eaf5880ed69963b3ad37cb1f8a1fd48b2918e58b;hp=aebae038789c66459d36af92a7ed035cd373eba3;hpb=a9051805b6d1be027d6695e300feb1b9efad9267;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index aebae0387..10cf1b8cb 100644
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -794,10 +794,10 @@ let rec eval_command = {ec_go = fun ~disambiguate_command opts status
 } and eval_executable = {ee_go = fun ~disambiguate_tactic ~disambiguate_command
 ~disambiguate_macro opts status (text,prefix_len,ex) ->
   match ex with
-  | GrafiteAst.Tactic (loc, Some tac, punct) ->
+  | GrafiteAst.Tactic (_(*loc*), Some tac, punct) ->
      let tac = apply_tactic ~disambiguate_tactic (text,prefix_len,tac) in
      let status = eval_tactical status (tactic_of_ast' tac) in
-     (* CALL auto on every goal, easy way of testing it *)
+     (* CALL auto on every goal, easy way of testing it 
      let auto = 
        GrafiteAst.AutoBatch 
          (loc, ([],["depth","2";"timeout","1";"type","1"])) in
@@ -806,6 +806,7 @@ let rec eval_command = {ec_go = fun ~disambiguate_command opts status
        let _ = eval_tactical status (tactic_of_ast' auto) in 
        print_endline "GOOD"; ()
      with ProofEngineTypes.Fail _ -> print_endline "BAD" | _ -> ());
+     *)
       eval_tactical status
        (punctuation_tactical_of_ast (text,prefix_len,punct)),[]
   | GrafiteAst.Tactic (_, None, punct) ->