} 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
- let auto = GrafiteAst.AutoBatch (loc, ([],["depth","1";"timeout","1"])) in
+ (* CALL auto on every goal, easy way of testing it *)
+ let auto =
+ GrafiteAst.AutoBatch
+ (loc, ([],["depth","1";"timeout","1";"type","1"])) in
(try
let auto = apply_tactic ~disambiguate_tactic ("",0,auto) in
let _ = eval_tactical status (tactic_of_ast' auto) in ()
- with _ -> ()); *)
+ with _ -> ());
eval_tactical status
(punctuation_tactical_of_ast (text,prefix_len,punct)),[]
| GrafiteAst.Tactic (_, None, punct) ->