--- 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 ());