src/Pure/ML-Systems/polyml-4.0.ML

--- a/src/Pure/ML-Systems/polyml-4.0.ML	Thu Nov 23 21:33:14 2000 +0100
+++ b/src/Pure/ML-Systems/polyml-4.0.ML	Fri Nov 24 11:07:38 2000 +0100
@@ -96,6 +96,8 @@
 
 (** interrupts **)
 
+exception Interrupt;
+
 local
 
 datatype 'a result =