replaced Isar loop variants by generic toplevel_loop;
authorwenzelm
Thu, 10 Apr 2008 13:44:43 +0200
changeset 26607 e36d16985402
parent 26606 379596d12f25
child 26608 ff838a61dad6
replaced Isar loop variants by generic toplevel_loop;
src/Pure/ProofGeneral/proof_general_emacs.ML
src/Pure/Tools/isabelle_process.ML
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Thu Apr 10 13:44:41 2008 +0200
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Thu Apr 10 13:44:43 2008 +0200
@@ -297,6 +297,6 @@
           set initialized);
         sync_thy_loader ();
        change print_mode (update (op =) proof_generalN);
-       Isar.sync_main ());
+       Isar.toplevel_loop {init = true, sync = true, secure = Secure.is_secure ()});
 
 end;
--- a/src/Pure/Tools/isabelle_process.ML	Thu Apr 10 13:44:41 2008 +0200
+++ b/src/Pure/Tools/isabelle_process.ML	Thu Apr 10 13:44:43 2008 +0200
@@ -155,7 +155,7 @@
  (change print_mode (update (op =) isabelle_processN);
   setup_channels ();
   init_message ();
-  Isar.secure_main ());
+  Isar.toplevel_loop {init = true, sync = true, secure = true});
 
 end;