changeset 62505 | 9e2a65912111 |
parent 62219 | dbac573b27e7 |
child 62519 | a564458f94db |
--- a/src/HOL/Tools/Sledgehammer/sledgehammer.ML Thu Mar 03 14:03:06 2016 +0100 +++ b/src/HOL/Tools/Sledgehammer/sledgehammer.ML Thu Mar 03 15:23:02 2016 +0100 @@ -192,7 +192,7 @@ handle ERROR msg => (unknownN, fn () => "Error: " ^ msg ^ "\n") | exn => - if Exn.is_interrupt exn then reraise exn + if Exn.is_interrupt exn then Exn.reraise exn else (unknownN, fn () => "Internal error:\n" ^ Runtime.exn_message exn ^ "\n")) val _ =