src/Pure/ML-Systems/polyml-5.1.ML
author haftmann
Tue Oct 20 16:13:01 2009 +0200 (2009-10-20)
changeset 33037 b22e44496dc2
parent 32776 1504f9c2d060
permissions -rw-r--r--
replaced old_style infixes eq_set, subset, union, inter and variants by generic versions
     1 (*  Title:      Pure/ML-Systems/polyml-5.1.ML
     2 
     3 Compatibility wrapper for Poly/ML 5.1.
     4 *)
     5 
     6 fun reraise exn = raise exn;
     7 
     8 use "ML-Systems/unsynchronized.ML";
     9 use "ML-Systems/thread_dummy.ML";
    10 use "ML-Systems/ml_name_space.ML";
    11 use "ML-Systems/polyml_common.ML";
    12 use "ML-Systems/compiler_polyml-5.0.ML";
    13 use "ML-Systems/pp_polyml.ML";
    14 
    15 val pointer_eq = PolyML.pointerEq;
    16 
    17 fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction;
    18