src/Pure/ML-Systems/polyml.ML
changeset 60993 531a48ae1425
parent 60967 eb87fc42825c
child 61715 5dc95d957569
equal deleted inserted replaced
60992:89effcb342df 60993:531a48ae1425
    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;