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/cm/compile/link.sml
ViewVC logotype

Diff of /sml/trunk/cm/compile/link.sml

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

revision 2933, Thu Jan 31 19:20:20 2008 UTC revision 2934, Fri Feb 1 21:02:59 2008 UTC
# Line 117  Line 117 
117                  fun ppb pps =                  fun ppb pps =
118                      (PP.newline pps;                      (PP.newline pps;
119                       PP.string pps (General.exnMessage exn);                       PP.string pps (General.exnMessage exn);
120                         app (fn s => PP.string pps (s ^ "\n"))
121                             (SMLofNJ.exnHistory exn);
122                       PP.newline pps)                       PP.newline pps)
123              in              in
124                  error (concat [msg, " ", descr]) ppb;                  error (concat [msg, " ", descr]) ppb;

Legend:
Removed from v.2933  
changed lines
  Added in v.2934

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