# HG changeset patch
# User wenzelm
# Date 1289558161 -3600
# Node ID 3848283c14bb07de681818409cc617a6ef83cbe4
# Parent  dc0d4d4a1aa16971b5d4eeaf656342025d35b300
treat pervasive "Interrupt" constructor as illegal -- superseded by Exn.Interrupt for internal use and Exn.is_interrupt/Exn.interrupt in user-space;

diff -r dc0d4d4a1aa1 -r 3848283c14bb 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;
+