src/Pure/pure_setup.ML
changeset 33917 186262d7cabf
parent 33538 edf497b5b5d2
child 36953 2af1ad9aa1a3
equal deleted inserted replaced
33916:a2fc533175ff 33917:186262d7cabf
    37 then use "ML-Systems/install_pp_polyml-5.3.ML"
    37 then use "ML-Systems/install_pp_polyml-5.3.ML"
    38 else if String.isPrefix "polyml" ml_system
    38 else if String.isPrefix "polyml" ml_system
    39 then use "ML-Systems/install_pp_polyml.ML"
    39 then use "ML-Systems/install_pp_polyml.ML"
    40 else ();
    40 else ();
    41 
    41 
       
    42 if ml_system = "polyml-5.0" orelse ml_system = "polyml-5.1" then
       
    43   Secure.use_text ML_Parse.global_context (0, "") false
       
    44     "PolyML.Compiler.maxInlineSize := 20"
       
    45 else ();
       
    46 
    42 
    47 
    43 (* ML toplevel use commands *)
    48 (* ML toplevel use commands *)
    44 
    49 
    45 fun use name = Toplevel.program (fn () => ThyInfo.use name);
    50 fun use name = Toplevel.program (fn () => ThyInfo.use name);
    46 fun use_thys name = Toplevel.program (fn () => ThyInfo.use_thys name);
    51 fun use_thys name = Toplevel.program (fn () => ThyInfo.use_thys name);