src/Pure/ML-Systems/polyml-5.0.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
wenzelm@21653
     1
(*  Title:      Pure/ML-Systems/polyml-5.0.ML
wenzelm@21653
     2
wenzelm@21653
     3
Compatibility wrapper for Poly/ML 5.0.
wenzelm@21653
     4
*)
wenzelm@21653
     5
wenzelm@31427
     6
fun reraise exn = raise exn;
wenzelm@31427
     7
wenzelm@32776
     8
use "ML-Systems/unsynchronized.ML";
wenzelm@28151
     9
use "ML-Systems/universal.ML";
wenzelm@28151
    10
use "ML-Systems/thread_dummy.ML";
wenzelm@30672
    11
use "ML-Systems/ml_name_space.ML";
wenzelm@26215
    12
use "ML-Systems/polyml_common.ML";
wenzelm@31312
    13
use "ML-Systems/compiler_polyml-5.0.ML";
wenzelm@31313
    14
use "ML-Systems/pp_polyml.ML";
wenzelm@21653
    15
wenzelm@21653
    16
val pointer_eq = PolyML.pointerEq;
wenzelm@21771
    17
wenzelm@29638
    18
fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction;
wenzelm@29638
    19