Commit d1d7174d authored by Guillaume Melquiond's avatar Guillaume Melquiond

Encapsulate the tactic code into a module to avoid shadowing.

parent 48c6b603
......@@ -96,14 +96,7 @@ DECLARE PLUGIN "why3tac"
END
(* forward reference because Why3 and Coq define the same modules,
thus shadowing each other *)
let why3tac_ref = ref (fun ?timelimit:_t _ -> Tactics.admit_as_an_axiom)
TACTIC EXTEND Why3
[ "why3" string(s) ] -> [ !why3tac_ref s ]
| [ "why3" string(s) "timelimit" integer(n) ] -> [ !why3tac_ref ~timelimit:n s ]
END
module Why3tac = struct
open Why3
open Call_provers
......@@ -1338,8 +1331,12 @@ let why3tac ?timelimit s = Proofview.V82.tactic (why3tac ?timelimit s)
END
let () =
why3tac_ref := why3tac
end
TACTIC EXTEND Why3
[ "why3" string(s) ] -> [ Why3tac.why3tac s ]
| [ "why3" string(s) "timelimit" integer(n) ] -> [ Why3tac.why3tac ~timelimit:n s ]
END
(*
Local Variables:
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment