equal
deleted
inserted
replaced
32 else (); |
32 else (); |
33 |
33 |
34 fun ml_platform_path (s: string) = s; |
34 fun ml_platform_path (s: string) = s; |
35 fun ml_standard_path (s: string) = s; |
35 fun ml_standard_path (s: string) = s; |
36 |
36 |
37 if ML_System.platform_is_windows then use "ML-Systems/windows_polyml.ML" else (); |
37 if ML_System.platform_is_windows then use "ML-Systems/windows_path.ML" else (); |
38 |
38 |
39 structure ML_System = |
39 structure ML_System = |
40 struct |
40 struct |
41 open ML_System; |
41 open ML_System; |
42 fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction; |
42 fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction; |