# HG changeset patch
# User wenzelm
# Date 1220608235 -7200
# Node ID 2c27248bf2670cc526ec90f61ca74e53f494d2a9
# Parent  e5c6c4aac52ce247645e37d8e89f9fade5122caf
multithreading.ML provides dummy thread structures;

diff -r e5c6c4aac52c -r 2c27248bf267 src/Pure/ML-Systems/polyml-5.1.ML
--- a/src/Pure/ML-Systems/polyml-5.1.ML	Fri Sep 05 06:50:22 2008 +0200
+++ b/src/Pure/ML-Systems/polyml-5.1.ML	Fri Sep 05 11:50:35 2008 +0200
@@ -4,8 +4,12 @@
 Compatibility wrapper for Poly/ML 5.1.
 *)
 
+structure PolyML_Thread = Thread;
 use "ML-Systems/polyml_common.ML";
+
+open PolyML_Thread;
 use "ML-Systems/multithreading_polyml.ML";
+
 use "ML-Systems/polyml_old_compiler5.ML";
 
 val pointer_eq = PolyML.pointerEq;