# HG changeset patch
# User wenzelm
# Date 1220802403 -7200
# Node ID 61f9c918b410a736d7092acbe160d2017458f61e
# Parent  cbc2cbfc840c07aa2626039b730c960b04af6ec5
explicit use of universal.ML and dummy_thread.ML;

diff -r cbc2cbfc840c -r 61f9c918b410 src/Pure/ML-Systems/polyml-4.1.3.ML
--- a/src/Pure/ML-Systems/polyml-4.1.3.ML	Sun Sep 07 17:46:41 2008 +0200
+++ b/src/Pure/ML-Systems/polyml-4.1.3.ML	Sun Sep 07 17:46:43 2008 +0200
@@ -5,6 +5,8 @@
 *)
 
 use "ML-Systems/polyml_old_basis.ML";
+use "ML-Systems/universal.ML";
+use "ML-Systems/thread_dummy.ML";
 use "ML-Systems/polyml_common.ML";
 use "ML-Systems/polyml_old_compiler4.ML";
 
diff -r cbc2cbfc840c -r 61f9c918b410 src/Pure/ML-Systems/polyml-4.1.4.ML
--- a/src/Pure/ML-Systems/polyml-4.1.4.ML	Sun Sep 07 17:46:41 2008 +0200
+++ b/src/Pure/ML-Systems/polyml-4.1.4.ML	Sun Sep 07 17:46:43 2008 +0200
@@ -5,6 +5,8 @@
 *)
 
 use "ML-Systems/polyml_old_basis.ML";
+use "ML-Systems/universal.ML";
+use "ML-Systems/thread_dummy.ML";
 use "ML-Systems/polyml_common.ML";
 use "ML-Systems/polyml_old_compiler4.ML";
 
diff -r cbc2cbfc840c -r 61f9c918b410 src/Pure/ML-Systems/polyml-4.2.0.ML
--- a/src/Pure/ML-Systems/polyml-4.2.0.ML	Sun Sep 07 17:46:41 2008 +0200
+++ b/src/Pure/ML-Systems/polyml-4.2.0.ML	Sun Sep 07 17:46:43 2008 +0200
@@ -4,6 +4,8 @@
 Compatibility wrapper for Poly/ML 4.2.0.
 *)
 
+use "ML-Systems/universal.ML";
+use "ML-Systems/thread_dummy.ML";
 use "ML-Systems/polyml_common.ML";
 use "ML-Systems/polyml_old_compiler4.ML";
 
diff -r cbc2cbfc840c -r 61f9c918b410 src/Pure/ML-Systems/polyml-5.0.ML
--- a/src/Pure/ML-Systems/polyml-5.0.ML	Sun Sep 07 17:46:41 2008 +0200
+++ b/src/Pure/ML-Systems/polyml-5.0.ML	Sun Sep 07 17:46:43 2008 +0200
@@ -4,6 +4,8 @@
 Compatibility wrapper for Poly/ML 5.0.
 *)
 
+use "ML-Systems/universal.ML";
+use "ML-Systems/thread_dummy.ML";
 use "ML-Systems/polyml_common.ML";
 use "ML-Systems/polyml_old_compiler5.ML";
 
diff -r cbc2cbfc840c -r 61f9c918b410 src/Pure/ML-Systems/polyml_common.ML
--- a/src/Pure/ML-Systems/polyml_common.ML	Sun Sep 07 17:46:41 2008 +0200
+++ b/src/Pure/ML-Systems/polyml_common.ML	Sun Sep 07 17:46:43 2008 +0200
@@ -5,8 +5,6 @@
 *)
 
 use "ML-Systems/exn.ML";
-if List.exists (fn s => s = "Universal") (PolyML.Compiler.structureNames ()) then ()
-else use "ML-Systems/universal.ML";
 use "ML-Systems/multithreading.ML";
 use "ML-Systems/time_limit.ML";
 use "ML-Systems/system_shell.ML";
diff -r cbc2cbfc840c -r 61f9c918b410 src/Pure/ML-Systems/smlnj.ML
--- a/src/Pure/ML-Systems/smlnj.ML	Sun Sep 07 17:46:41 2008 +0200
+++ b/src/Pure/ML-Systems/smlnj.ML	Sun Sep 07 17:46:43 2008 +0200
@@ -8,6 +8,7 @@
 use "ML-Systems/overloading_smlnj.ML";
 use "ML-Systems/exn.ML";
 use "ML-Systems/universal.ML";
+use "ML-Systems/thread_dummy.ML";
 use "ML-Systems/multithreading.ML";
 use "ML-Systems/system_shell.ML";