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/ML/ml_compiler_polyml-5.3.ML
changeset 32490 6a48db3e627c
parent 31756 178621145f98
child 32492 9d49a280f3f9 
--- a/src/Pure/ML/ml_compiler_polyml-5.3.ML	Wed Sep 02 12:20:17 2009 +0200
+++ b/src/Pure/ML/ml_compiler_polyml-5.3.ML	Wed Sep 02 14:11:45 2009 +0200
@@ -111,9 +111,8 @@
     fun put s = change output_buffer (Buffer.add s);
 
     fun put_message {message, hard, location, context = _} =
-     (put (if hard then "Error: " else "Warning: ");
-      put (Pretty.string_of (Pretty.from_ML (pretty_ml message)));
-      put (Position.str_of (position_of location) ^ "\n"));
+     (put ((if hard then "Error" else "Warning") ^ Position.str_of (position_of location) ^ ":\n");
+      put (Pretty.string_of (Pretty.from_ML (pretty_ml message)) ^ "\n"));
 
 
     (* results *)
isabelle