--- a/src/Pure/ML-Systems/polyml_common.ML Wed May 12 17:10:53 2010 +0200
+++ b/src/Pure/ML-Systems/polyml_common.ML Wed May 12 22:43:05 2010 +0200
@@ -6,7 +6,11 @@
exception Interrupt = SML90.Interrupt;
use "General/exn.ML";
-use "ML-Systems/single_assignment_polyml.ML";
+
+if List.exists (fn s => s = "SingleAssignment") (PolyML.Compiler.structureNames ())
+then ()
+else use "ML-Systems/single_assignment_polyml.ML";
+
use "ML-Systems/multithreading.ML";
use "ML-Systems/time_limit.ML";
use "ML-Systems/timing.ML";