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

SCM Repository

[smlnj] Diff of /sml/trunk/src/ml-nlffigen/main.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffigen/main.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1558, Thu Jul 22 22:30:55 2004 UTC revision 1559, Fri Jul 23 23:06:44 2004 UTC
# Line 169  Line 169 
169          proc args          proc args
170      end      end
171    in    in
172        fun hist [] = ()
173          | hist (h :: hs) =
174              (TextIO.output (TextIO.stdErr, concat ["\t", h, "\n"]);
175               hist hs)
176      fun main args = main0 args      fun main args = main0 args
177          handle exn => (TextIO.output (TextIO.stdErr, General.exnMessage exn);          handle exn => (TextIO.output (TextIO.stdErr, General.exnMessage exn);
178                         TextIO.output (TextIO.stdErr, "\n");                         TextIO.output (TextIO.stdErr, "\n");
179                           hist (SMLofNJ.exnHistory exn);
180                         OS.Process.failure)                         OS.Process.failure)
181    end    end
182  end  end

Legend:
Removed from v.1558  
changed lines
  Added in v.1559

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