diff options
| author | Arnaud Spiwack | 2014-08-04 15:44:19 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-08-04 15:56:38 +0200 |
| commit | 94a759be56074ac66c5c96b0cc7722b395c4cf40 (patch) | |
| tree | f1863f86a463872e5af38482c50066885e5b1142 /proofs/tactic_debug.ml | |
| parent | 39285cc9cc8887380349bb1e75aa4e006a8ceffa (diff) | |
Cleaning of the new implementation of the tactic monad.
* Add comments in the code (mostly imported from Monad.v)
* Inline duplicated module
* Clean up some artifacts due to the extracted code.
* [NonLogical.new_ref] -> [NonLogical.ref] (I don't even remember why I chose this name originally)
* Remove the now superfluous [Proof_errors] module (which was used to define exceptions to be used in the extracted code).
* Remove Monad.v
Diffstat (limited to 'proofs/tactic_debug.ml')
| -rw-r--r-- | proofs/tactic_debug.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml index 1cc08fa49b..62b157307a 100644 --- a/proofs/tactic_debug.ml +++ b/proofs/tactic_debug.ml @@ -76,9 +76,9 @@ let goal_com tac = (* [run (new_ref _)] gives us a ref shared among [NonLogical.t] expressions. It avoids parametrizing everything over a reference. *) -let skipped = Proofview.NonLogical.run (Proofview.NonLogical.new_ref 0) -let skip = Proofview.NonLogical.run (Proofview.NonLogical.new_ref 0) -let breakpoint = Proofview.NonLogical.run (Proofview.NonLogical.new_ref None) +let skipped = Proofview.NonLogical.run (Proofview.NonLogical.ref 0) +let skip = Proofview.NonLogical.run (Proofview.NonLogical.ref 0) +let breakpoint = Proofview.NonLogical.run (Proofview.NonLogical.ref None) let rec drop_spaces inst i = if String.length inst > i && inst.[i] == ' ' then drop_spaces inst (i+1) |