equal
deleted
inserted
replaced
169 val props = properties_of pos; |
169 val props = properties_of pos; |
170 val s = |
170 val s = |
171 (case (line_of pos, file_of pos) of |
171 (case (line_of pos, file_of pos) of |
172 (SOME i, NONE) => "(line " ^ string_of_int i ^ ")" |
172 (SOME i, NONE) => "(line " ^ string_of_int i ^ ")" |
173 | (SOME i, SOME name) => "(line " ^ string_of_int i ^ " of " ^ quote name ^ ")" |
173 | (SOME i, SOME name) => "(line " ^ string_of_int i ^ " of " ^ quote name ^ ")" |
174 | (NONE, SOME name) => "(" ^ quote name ^ ")" |
174 | (NONE, SOME name) => "(file " ^ quote name ^ ")" |
175 | _ => ""); |
175 | _ => ""); |
176 in |
176 in |
177 if null props then "" |
177 if null props then "" |
178 else (if s = "" then "" else " ") ^ Markup.markup (Markup.properties props Markup.position) s |
178 else (if s = "" then "" else " ") ^ Markup.markup (Markup.properties props Markup.position) s |
179 end; |
179 end; |