diff options
| author | herbelin | 2003-06-10 21:01:35 +0000 |
|---|---|---|
| committer | herbelin | 2003-06-10 21:01:35 +0000 |
| commit | 479358ea0541b62ff33db1c18e898d99ae6826f2 (patch) | |
| tree | c0d46d9f8b80898f390620e4abd5dd4997dee97b /proofs/tactic_debug.mli | |
| parent | 55727a7d2f13e7b0ab79d3e6fc0279516ebdb911 (diff) | |
Réinstallation d'un afficheur de niveau d'imbrication pour le déboggueur de tactique
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4111 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/tactic_debug.mli')
| -rw-r--r-- | proofs/tactic_debug.mli | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/proofs/tactic_debug.mli b/proofs/tactic_debug.mli index c847534c4a..bd0189b5b5 100644 --- a/proofs/tactic_debug.mli +++ b/proofs/tactic_debug.mli @@ -21,13 +21,12 @@ open Term (* Debug information *) type debug_info = - | DebugOn + | DebugOn of int | DebugOff - | Run of int (* Prints the state and waits *) val debug_prompt : - goal sigma -> debug_info -> Tacexpr.glob_tactic_expr -> debug_info + int -> goal sigma -> glob_tactic_expr -> (debug_info -> 'a) -> 'a (* Prints a constr *) val db_constr : debug_info -> env -> constr -> unit |