equal
deleted
inserted
replaced
1 (* Title: Pure/ML/ml_pervasive_final.ML |
|
2 Author: Makarius |
|
3 |
|
4 Pervasive ML environment: final setup. |
|
5 *) |
|
6 |
|
7 if Options.default_bool "ML_system_bootstrap" then () |
|
8 else |
|
9 (List.app ML_Name_Space.forget_structure |
|
10 (remove (op =) "PolyML" ML_Name_Space.bootstrap_structures); |
|
11 ML \<open>structure PolyML = struct structure IntInf = PolyML.IntInf end\<close>); |
|
12 |
|
13 structure Output: OUTPUT = Output; (*seal system channels!*) |
|
14 |
|
15 Proofterm.proofs := 0; |
|
16 |
|
17 Context.set_thread_data NONE; |
|