src/Pure/Isar/outer_syntax.ML
changeset 8999 ad8260dc6e4a
parent 8807 0046be1769f9
child 9033 f12d8ea8618b
equal deleted inserted replaced
8998:56c44eee46ad 8999:ad8260dc6e4a
   441 
   441 
   442 fun load_thy name ml time path =
   442 fun load_thy name ml time path =
   443  (if time then
   443  (if time then
   444     timeit (fn () =>
   444     timeit (fn () =>
   445      (writeln ("\n**** Starting theory " ^ quote name ^ " ****");
   445      (writeln ("\n**** Starting theory " ^ quote name ^ " ****");
   446       setmp Goals.proof_timing true (run_thy name) path;
   446       setmp Library.timing true (run_thy name) path;
   447       writeln ("**** Finished theory " ^ quote name ^ " ****\n")))
   447       writeln ("**** Finished theory " ^ quote name ^ " ****\n")))
   448   else run_thy name path;
   448   else run_thy name path;
   449   Context.context (ThyInfo.get_theory name);
   449   Context.context (ThyInfo.get_theory name);
   450   if ml then try_ml_file name time else ());
   450   if ml then try_ml_file name time else ());
   451 
   451