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