src/Pure/Interface/proof_general.ML

--- a/src/Pure/Interface/proof_general.ML	Wed Aug 02 16:07:32 2000 +0200
+++ b/src/Pure/Interface/proof_general.ML	Wed Aug 02 16:49:26 2000 +0200
@@ -189,15 +189,15 @@
 local
 
 fun restart isar =
- (ThyInfo.touch_all_thys ();
-  if isar then tell_clear_goals () else kill_goal ();
+ (if isar then tell_clear_goals () else kill_goal ();
   tell_clear_response ();
   writeln (Session.welcome ()));
 
 in
 
-fun isa_restart () = restart false;
-fun isar_restart () = (restart true; raise Toplevel.RESTART);
+fun isa_start () = restart false;
+fun isa_restart () = (ThyInfo.touch_all_thys (); restart false);
+fun isar_restart () = (ThyInfo.touch_all_thys (); restart true; raise Toplevel.RESTART);
 
 end;
 
@@ -261,7 +261,7 @@
   ThmDeps.enable ();
   if isar then ml_prompts "ML> " "ML# "
   else ml_prompts ("> " ^ oct_char "372") ("- " ^ oct_char "373");
-  if isar then Isar.sync_main () else isa_restart ());
+  if isar then Isar.sync_main () else isa_start ());