compile;
authorwenzelm
Wed, 12 Jan 2011 15:22:24 +0100
changeset 41523 6c7f5d5b7e9a
parent 41522 42d13d00ccfb
child 41524 4d2f9a1c24c7
compile;
src/HOL/Nitpick_Examples/Mono_Nits.thy
--- a/src/HOL/Nitpick_Examples/Mono_Nits.thy	Wed Jan 12 15:15:51 2011 +0100
+++ b/src/HOL/Nitpick_Examples/Mono_Nits.thy	Wed Jan 12 15:22:24 2011 +0100
@@ -178,7 +178,7 @@
   end
   handle TimeLimit.TimeOut => "TIMEOUT"
        | NOT_SUPPORTED _ => "UNSUP"
-       | exn => if Exn.is_interrupt then reraise exn else "UNKNOWN"
+       | exn => if Exn.is_interrupt exn then reraise exn else "UNKNOWN"
 
 fun check_theory thy =
   let