# HG changeset patch
# User wenzelm
# Date 911308993 -3600
# Node ID 4039395e29ce641fc5af37b7b3ba52358010bade
# Parent  66f4bde4c6e7289d4a37e696705408486ee1abc4
exception METHOD_FAIL;

diff -r 66f4bde4c6e7 -r 4039395e29ce src/Pure/Isar/method.ML
--- a/src/Pure/Isar/method.ML	Tue Nov 17 14:14:38 1998 +0100
+++ b/src/Pure/Isar/method.ML	Tue Nov 17 14:23:13 1998 +0100
@@ -24,6 +24,7 @@
   val forward_chain: thm list -> thm list -> thm Seq.seq
   val rule_tac: tthm list -> tthm list -> int -> tactic
   val rule: tthm list -> Proof.method
+  exception METHOD_FAIL of (string * Position.T) * exn
   val method: theory -> Args.src -> Proof.context -> Proof.method
   val add_methods: (bstring * (Args.src -> Proof.context -> Proof.method) * string) list
     -> theory -> theory
@@ -153,6 +154,8 @@
 
 (* get methods *)
 
+exception METHOD_FAIL of (string * Position.T) * exn;
+
 fun method thy =
   let
     val {space, meths} = MethodsData.get thy;
@@ -164,7 +167,7 @@
       in
         (case Symtab.lookup (meths, name) of
           None => error ("Unknown proof method: " ^ quote name ^ Position.str_of pos)
-        | Some ((mth, _), _) => mth src)
+        | Some ((mth, _), _) => transform_failure (curry METHOD_FAIL (name, pos)) (mth src))
       end;
   in meth end;