equal
deleted
inserted
replaced
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 |