src/Pure/Isar/attrib.ML
changeset 48992 0518bf89c777
parent 48205 09c2a3d9aa22
child 49657 40e4feac2921
     1.1 --- a/src/Pure/Isar/attrib.ML	Wed Aug 29 11:31:07 2012 +0200
     1.2 +++ b/src/Pure/Isar/attrib.ML	Wed Aug 29 11:48:45 2012 +0200
     1.3 @@ -129,7 +129,7 @@
     1.4      fun attr src =
     1.5        let val ((name, _), pos) = Args.dest_src src in
     1.6          (case Symtab.lookup tab name of
     1.7 -          NONE => error ("Unknown attribute: " ^ quote name ^ Position.str_of pos)
     1.8 +          NONE => error ("Unknown attribute: " ^ quote name ^ Position.here pos)
     1.9          | SOME (att, _) =>
    1.10              (Context_Position.report_generic context pos (Name_Space.markup space name); att src))
    1.11        end;
    1.12 @@ -254,7 +254,7 @@
    1.13  
    1.14  fun err msg src =
    1.15    let val ((name, _), pos) = Args.dest_src src
    1.16 -  in error (msg ^ " " ^ quote name ^ Position.str_of pos) end;
    1.17 +  in error (msg ^ " " ^ quote name ^ Position.here pos) end;
    1.18  
    1.19  fun eval src ((th, dyn), (decls, context)) =
    1.20    (case (apply_att src (context, th), dyn) of