changeset 27751 | 22c32eb18c23 |
parent 27729 | aaf08262b177 |
child 27813 | 96fbe385a0d0 |
--- a/src/Pure/Isar/method.ML Wed Aug 06 00:10:18 2008 +0200 +++ b/src/Pure/Isar/method.ML Wed Aug 06 00:10:22 2008 +0200 @@ -437,7 +437,7 @@ let val ((name, _), pos) = Args.dest_src src in (case Symtab.lookup meths name of NONE => error ("Unknown proof method: " ^ quote name ^ Position.str_of pos) - | SOME ((mth, _), _) => mth src) + | SOME ((mth, _), _) => (Position.report (Markup.method name) pos; mth src)) end; in meth end;