changeset 31427 | 5a07cc86675d |
parent 31313 | 97800f7e80b4 |
child 32776 | 1504f9c2d060 |
--- a/src/Pure/ML-Systems/polyml-5.0.ML Thu Jun 04 17:31:37 2009 +0200 +++ b/src/Pure/ML-Systems/polyml-5.0.ML Thu Jun 04 17:31:38 2009 +0200 @@ -3,6 +3,8 @@ Compatibility wrapper for Poly/ML 5.0. *) +fun reraise exn = raise exn; + use "ML-Systems/universal.ML"; use "ML-Systems/thread_dummy.ML"; use "ML-Systems/ml_name_space.ML";