src/Pure/ML/ml_pervasive_final.ML
changeset 62883 b04e9fe29223
parent 62882 3c4161728aa8
child 62884 66494de0aafe
equal deleted inserted replaced
62882:3c4161728aa8 62883:b04e9fe29223
     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;