Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/branches/SMLNJ/src/MLRISC/util/mlriscErrormsg.sml
ViewVC logotype

Annotation of /sml/branches/SMLNJ/src/MLRISC/util/mlriscErrormsg.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 245 - (view) (download)

1 : monnier 245 structure MLRiscErrorMsg = struct
2 :     exception Error
3 :     val print = fn s => TextIO.output(TextIO.stdOut, s)
4 :     fun impossible msg =
5 :     (app print ["Error: MLRisc bug: ",msg,"\n"];
6 :     TextIO.flushOut TextIO.stdOut;
7 :     raise Error)
8 :     end
9 :    
10 :    
11 :     (*
12 :     * $Log$
13 :     *)

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0