src/Pure/ML-Systems/polyml-5.1.ML

slightly more standard data merge: Symtax.merge (K true) avoids equality on abstract type Pretty.T and gracefully accepts overriding, Symtab.join prefers first entry as usual;

(*  Title:      Pure/ML-Systems/polyml-5.1.ML

Compatibility wrapper for Poly/ML 5.1.
*)

fun reraise exn = raise exn;

use "ML-Systems/unsynchronized.ML";
use "ML-Systems/thread_dummy.ML";
use "ML-Systems/ml_name_space.ML";
use "ML-Systems/polyml_common.ML";
use "ML-Systems/compiler_polyml-5.0.ML";
use "ML-Systems/pp_polyml.ML";

val pointer_eq = PolyML.pointerEq;

fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction;