From 9fb5af2617043f4e9e8439a029bb9e2677adff29 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Wed, 25 Nov 1998 12:55:56 +0000
Subject: Fixes to debug long standing not-showing-first-goal problem.

---
 isa/ProofGeneral.ML | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'isa/ProofGeneral.ML')

diff --git a/isa/ProofGeneral.ML b/isa/ProofGeneral.ML
index 0e5eace5..09ecc7ab 100644
--- a/isa/ProofGeneral.ML
+++ b/isa/ProofGeneral.ML
@@ -133,6 +133,7 @@ structure ProofGeneral : PROOFGENERAL =
    fun restart () =
      let val _ = (loaded_thys := !initial_loaded_thys)
          val _ = (retracted_files := [])
+	 val _ = (kill_goal ())
       in
          (list_loaded_files();
           clear_response_buffer();
@@ -377,10 +378,12 @@ in
   fun print_current_goals_with_plain_output i j t =
     Library.setmp prs_fn out (print_current_goals_default i j) t;
 
-(* Annoyingly, Proof General waits for the first prompt before doing
-  anything.  Hack sending a prompt to get things going *)
+(* Proof General has problems sending commands outside of the
+   action list.  Also, it waits for the first prompt before doing
+   anything.  The next function hacks sending a prompt to get
+   things going and to help fix things later. *)
 
- val _ = out ">\250 \n";
+  fun hack_send_prompt _ = out ">\250 \n";
 end;
 
 print_current_goals_fn := print_current_goals_with_plain_output;
@@ -391,7 +394,6 @@ print_current_goals_fn := print_current_goals_with_plain_output;
 ml_prompts ">\250" "-\251"; (* ?\372, ?\373 *)
 
 
-
 (*
    NB: Obscure bug with proof-shell-annotated-prompt-regexp set
    properly to include annotations: PG doesn't recognize first proof
@@ -403,11 +405,9 @@ ml_prompts ">\250" "-\251"; (* ?\372, ?\373 *)
       update_verbose:=true;
    Unfortunately broken.  We use list_loaded_files instead. *)
 
-(* Get Proof General to cache the loaded files.  *)
-
-ProofGeneral.restart();
-
-
-
 
+(* Wake up, Proof General! *)
+hack_send_prompt();
 
+(* Get Proof General to cache the loaded files.  *)
+ProofGeneral.restart();
-- 
cgit v1.2.3