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

Diff of /sml/trunk/src/cm/compile/recomp.sml

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

revision 352, Wed Jun 23 09:27:27 1999 UTC revision 353, Thu Jun 24 09:43:28 1999 UTC
# Line 163  Line 163 
163                                     cleanup = fn () => () })                                     cleanup = fn () => () })
164              handle exn => let              handle exn => let
165                  fun ppb pps =                  fun ppb pps =
166                      (PP.add_string pps (General.exnMessage exn);                      (PP.add_newline pps;
167                       PP.add_newline pps)                       PP.add_string pps (General.exnMessage exn))
168              in              in
169                  BinInfo.error i EM.COMPLAIN                  BinInfo.error i EM.COMPLAIN
170                         "unable to load stable library module" ppb;                         "unable to load stable library module" ppb;
# Line 204  Line 204 
204                                       cleanup = cleanup }                                       cleanup = cleanup }
205                      handle exn => let                      handle exn => let
206                          fun ppb pps =                          fun ppb pps =
207                              (PP.add_string pps (General.exnMessage exn);                              (PP.add_newline pps;
208                               PP.add_newline pps)                               PP.add_string pps (General.exnMessage exn))
209                      in                      in
210                          SmlInfo.error gp i EM.WARN                          SmlInfo.error gp i EM.WARN
211                                   ("failed to write " ^ binname) ppb                                   ("failed to write " ^ binname) ppb

Legend:
Removed from v.352  
changed lines
  Added in v.353

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