treat pervasive "Interrupt" constructor as illegal -- superseded by Exn.Interrupt for internal use and Exn.is_interrupt/Exn.interrupt in user-space;
authorwenzelm
Fri, 12 Nov 2010 11:36:01 +0100
changeset 40483 3848283c14bb
parent 40482 dc0d4d4a1aa1
child 40507 f9057eca82f1
treat pervasive "Interrupt" constructor as illegal -- superseded by Exn.Interrupt for internal use and Exn.is_interrupt/Exn.interrupt in user-space;
src/Pure/General/exn.ML
--- a/src/Pure/General/exn.ML	Fri Nov 12 10:58:09 2010 +0100
+++ b/src/Pure/General/exn.ML	Fri Nov 12 11:36:01 2010 +0100
@@ -85,3 +85,6 @@
   handle EXCEPTIONS (exn :: _) => reraise exn;
 
 end;
+
+datatype illegal = Interrupt;
+