src/HOL/Tools/Sledgehammer/sledgehammer_shrink.ML
changeset 50901 f4a6c360af35
parent 50786 af8ecf09a58c
child 50908 02ed5abcc0e5
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_shrink.ML	Tue Jan 15 12:45:19 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_shrink.ML	Tue Jan 15 16:34:19 2013 +0100
@@ -68,8 +68,8 @@
       val metis_fail = ref false
     in
       fun handle_metis_fail try_metis () =
-        try_metis () handle exp =>
-          (if Exn.is_interrupt exp orelse debug then reraise exp 
+        try_metis () handle exn =>
+          (if Exn.is_interrupt exn orelse debug then reraise exn
            else metis_fail := true; SOME Time.zeroTime)
       fun get_time lazy_time =
         if !metis_fail then SOME Time.zeroTime else Lazy.force lazy_time