# HG changeset patch
# User wenzelm
# Date 1273696985 -7200
# Node ID 1abc27d6c36241bcfdc7c9db38b23101f4729ed2
# Parent  d7085f0ec087ced28fe9c1322368e606ec4c9094
conditional structure SingleAssignment;

diff -r d7085f0ec087 -r 1abc27d6c362 src/Pure/ML-Systems/polyml_common.ML
--- 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";