diff options
| -rw-r--r-- | hol-light/pt_tactics.ml | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/hol-light/pt_tactics.ml b/hol-light/pt_tactics.ml index c79cd2ac..ece7a22a 100644 --- a/hol-light/pt_tactics.ml +++ b/hol-light/pt_tactics.ml @@ -261,3 +261,18 @@ let jump_back_to_state n : xgoalstack = #install_printer print_xgoal;; #install_printer print_xgoalstack;; + +(* ------------------------------------------------------------------------- *) +(* Replace the top-level prompt *) +(* ------------------------------------------------------------------------- *) + +(* TODO: something like this + +let prompt () => + "[State Counter " ^ string_of_int (length (!current_xgoalstack)) ^ "]# "); + +Toploop.read_interactive_input := + let old = !Toploop.read_interactive_input in fun prompt buffer len -> + old (prompt()) buffer len ;; + +*) |