diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-04-15 12:15:13 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-04-15 12:15:13 +0200 |
| commit | 0147ae6ba6db24d4f9b29ff477d374a6abb103dd (patch) | |
| tree | b07f2d41760b7c138fc7b7b6a652320e5169e4f3 /plugins/ltac/tactic_debug.ml | |
| parent | ed09fccb6405fb832cab867919cc4b0be32dea36 (diff) | |
| parent | 727ef1bd345f9ad9e08d9e4f136e2db7d034a93d (diff) | |
Merge branch 'v8.6' into trunk
Diffstat (limited to 'plugins/ltac/tactic_debug.ml')
| -rw-r--r-- | plugins/ltac/tactic_debug.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/plugins/ltac/tactic_debug.ml b/plugins/ltac/tactic_debug.ml index b2601ad32..dffeade29 100644 --- a/plugins/ltac/tactic_debug.ml +++ b/plugins/ltac/tactic_debug.ml @@ -108,6 +108,8 @@ let string_get s i = try Proofview.NonLogical.return (String.get s i) with e -> Proofview.NonLogical.raise e +let run_invalid_arg () = Proofview.NonLogical.raise (Invalid_argument "run_com") + (* Gives the number of steps or next breakpoint of a run command *) let run_com inst = let open Proofview.NonLogical in @@ -118,14 +120,14 @@ let run_com inst = let s = String.sub inst i (String.length inst - i) in if inst.[0] >= '0' && inst.[0] <= '9' then int_of_string s >>= fun num -> - (if num<0 then invalid_arg "run_com" else return ()) >> + (if num<0 then run_invalid_arg () else return ()) >> (skip:=num) >> (skipped:=0) else breakpoint:=Some (possibly_unquote s) else - invalid_arg "run_com" + run_invalid_arg () else - invalid_arg "run_com" + run_invalid_arg () (* Prints the run counter *) let run ini = |