# HG changeset patch # User wenzelm # Date 911383949 -3600 # Node ID 41aa67a045f79fdf0beab07788fe7b0414b8bf30 # Parent 890f2f9b926df897e0c6402e41325f6f94105c19 exn_message FAIL; diff -r 890f2f9b926d -r 41aa67a045f7 src/Pure/Isar/toplevel.ML --- a/src/Pure/Isar/toplevel.ML Wed Nov 18 11:03:49 1998 +0100 +++ b/src/Pure/Isar/toplevel.ML Wed Nov 18 11:12:29 1998 +0100 @@ -233,6 +233,7 @@ fun exn_message TERMINATE = "Exit." | exn_message (BREAK _) = "Break." + | exn_message (FAIL (exn, msg)) = cat_lines [exn_message exn, msg] | exn_message Interrupt = "Interrupt (exec)." | exn_message (ERROR_MESSAGE msg) = msg | exn_message (THEORY (msg, _)) = msg