# HG changeset patch
# User wenzelm
# Date 1358264059 -3600
# Node ID f4a6c360af35c5e28c83fb86d83ae6bf591f68f8
# Parent  6d80709ab8620e3fd385e3069e8204f93ebce4da
tuned;

diff -r 6d80709ab862 -r f4a6c360af35 src/HOL/Tools/Sledgehammer/sledgehammer_shrink.ML
--- 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