1 (* Title: Pure/ML-Systems/polyml-5.2.ML
3 Compatibility wrapper for Poly/ML 5.2.
6 use "ML-Systems/unsynchronized.ML";
10 structure ML_Name_Space =
12 open PolyML.NameSpace;
13 type T = PolyML.NameSpace.nameSpace;
14 val global = PolyML.globalNameSpace;
17 fun reraise exn = raise exn;
19 use "ML-Systems/polyml_common.ML";
21 use "ML-Systems/thread_dummy.ML";
22 use "ML-Systems/multithreading.ML";
24 val pointer_eq = PolyML.pointerEq;
26 fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction;
28 use "ML-Systems/compiler_polyml-5.2.ML";
29 use "ML-Systems/pp_polyml.ML";