diff options
-rw-r--r-- | doc/refman/RefMan-ltac.tex | 3 | ||||
-rw-r--r-- | proofs/tactic_debug.ml | 8 |
2 files changed, 9 insertions, 2 deletions
diff --git a/doc/refman/RefMan-ltac.tex b/doc/refman/RefMan-ltac.tex index 38ad9aa86..d7f00584e 100644 --- a/doc/refman/RefMan-ltac.tex +++ b/doc/refman/RefMan-ltac.tex @@ -946,7 +946,8 @@ simple newline: & go to the next step\\ h: & get help\\ x: & exit current evaluation\\ s: & continue current evaluation without stopping\\ -r$n$: & advance $n$ steps further\\ +r $n$: & advance $n$ steps further\\ +r {\qstring}: & advance up to the next call to ``{\tt idtac} {\qstring}''\\ \end{tabular} \endinput diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml index 7d7688873..b23f361c7 100644 --- a/proofs/tactic_debug.ml +++ b/proofs/tactic_debug.ml @@ -71,6 +71,12 @@ let rec drop_spaces inst i = if String.length inst > i && inst.[i] = ' ' then drop_spaces inst (i+1) else i +let possibly_unquote s = + if String.length s >= 2 & s.[0] = '"' & s.[String.length s - 1] = '"' then + String.sub s 1 (String.length s - 2) + else + s + (* (Re-)initialize debugger *) let db_initialize () = skip:=0;skipped:=0;breakpoint:=None @@ -86,7 +92,7 @@ let run_com inst = if num<0 then raise (Invalid_argument "run_com"); skip:=num;skipped:=0 else - breakpoint:=Some s + breakpoint:=Some (possibly_unquote s) else raise (Invalid_argument "run_com") else |