# HG changeset patch
# User wenzelm
# Date 1220537028 -7200
# Node ID e99427bcf7f3abb0ba6c7491480cb49cda840df9
# Parent  10a1f1f4c6ae00975deb9198924c50397263d0f2
multithreading.ML provides dummy thread structures;

diff -r 10a1f1f4c6ae -r e99427bcf7f3 src/Pure/ML-Systems/polyml.ML
--- a/src/Pure/ML-Systems/polyml.ML	Thu Sep 04 16:03:47 2008 +0200
+++ b/src/Pure/ML-Systems/polyml.ML	Thu Sep 04 16:03:48 2008 +0200
@@ -4,7 +4,10 @@
 Compatibility wrapper for Poly/ML (after 5.1).
 *)
 
+structure PolyML_Thread = Thread;
 use "ML-Systems/polyml_common.ML";
+
+open PolyML_Thread;
 use "ML-Systems/multithreading_polyml.ML";
 
 val pointer_eq = PolyML.pointerEq;