| changeset 28796 | 56cb4130177a |
| parent 28676 | 78688a5fafc2 |
| child 29564 | f8b933a62151 |
--- a/src/Pure/ML-Systems/polyml.ML Fri Nov 14 16:49:52 2008 +0100 +++ b/src/Pure/ML-Systems/polyml.ML Sat Nov 15 11:25:17 2008 +0100 @@ -7,7 +7,8 @@ open Thread; use "ML-Systems/polyml_common.ML"; -if ml_system = "polyml-5.2" then () +if ml_system = "polyml-5.2" +then use "ML-Systems/thread_dummy.ML" else use "ML-Systems/multithreading_polyml.ML"; val pointer_eq = PolyML.pointerEq;