src/Tools/try.ML
changeset 62505 9e2a65912111
parent 60190 906de96ba68a
child 62519 a564458f94db
--- a/src/Tools/try.ML	Thu Mar 03 14:03:06 2016 +0100
+++ b/src/Tools/try.ML	Thu Mar 03 15:23:02 2016 +0100
@@ -114,7 +114,7 @@
                   (true, (_, outcome)) => List.app Output.information outcome
                 | _ => ())
               else ()
-            end handle exn => if Exn.is_interrupt exn then reraise exn else ()}
+            end handle exn => if Exn.is_interrupt exn then Exn.reraise exn else ()}
       else NONE)