Mercurial > urweb

comparison src/errormsg.sml @ 591:8f8771f32909

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Injecting a float
author Adam Chlipala <adamc@hcoop.net>
date Thu, 01 Jan 2009 15:59:02 -0500
parents daa4f1d7a663
children 9b54fbe1efdb
comparison
equal deleted inserted replaced
590:57f476c934da 591:8f8771f32909
93 fun anyErrors () = !errors 93 fun anyErrors () = !errors
94 fun error s = (TextIO.output (TextIO.stdErr, s); 94 fun error s = (TextIO.output (TextIO.stdErr, s);
95 TextIO.output1 (TextIO.stdErr, #"\n"); 95 TextIO.output1 (TextIO.stdErr, #"\n");
96 errors := true) 96 errors := true)
97 fun errorAt span s = (TextIO.output (TextIO.stdErr, spanToString span); 97 fun errorAt span s = (TextIO.output (TextIO.stdErr, spanToString span);
98 TextIO.output1 (TextIO.stdErr, #" "); 98 TextIO.output (TextIO.stdErr, ": ");
99 error s) 99 error s)
100 fun errorAt' span s = errorAt (spanOf span) s 100 fun errorAt' span s = errorAt (spanOf span) s
101 101
102 end 102 end