Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/Isar/attrib.ML
changeset 48992 0518bf89c777
parent 48205 09c2a3d9aa22
child 49657 40e4feac2921 
--- a/src/Pure/Isar/attrib.ML	Wed Aug 29 11:31:07 2012 +0200
+++ b/src/Pure/Isar/attrib.ML	Wed Aug 29 11:48:45 2012 +0200
@@ -129,7 +129,7 @@
     fun attr src =
       let val ((name, _), pos) = Args.dest_src src in
         (case Symtab.lookup tab name of
-          NONE => error ("Unknown attribute: " ^ quote name ^ Position.str_of pos)
+          NONE => error ("Unknown attribute: " ^ quote name ^ Position.here pos)
         | SOME (att, _) =>
             (Context_Position.report_generic context pos (Name_Space.markup space name); att src))
       end;
@@ -254,7 +254,7 @@
 
 fun err msg src =
   let val ((name, _), pos) = Args.dest_src src
-  in error (msg ^ " " ^ quote name ^ Position.str_of pos) end;
+  in error (msg ^ " " ^ quote name ^ Position.here pos) end;
 
 fun eval src ((th, dyn), (decls, context)) =
   (case (apply_att src (context, th), dyn) of
isabelle