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 382, Sun Jul 11 03:12:07 1999 UTC revision 383, Tue Jul 20 06:05:56 1999 UTC
# Line 267  Line 267 
267                              SOME (memo2envdelta memo)                              SOME (memo2envdelta memo)
268                          end handle BF.Compile _ => NONE                          end handle BF.Compile _ => NONE
269                                   | e => let                                   | e => let
270                                         fun ppb pps =                                         fun ppb pps = let
271                                               fun loop [] = ()
272                                                 | loop (h :: t) =
273                                             (PP.add_newline pps;                                             (PP.add_newline pps;
274                                              PP.add_string pps                                                  PP.add_string pps h;
275                                                 (General.exnMessage e))                                                  loop t)
276                                           in
277                                               loop (General.exnMessage e ::
278                                                     SMLofNJ.exnHistory e)
279                                           end
280                                     in                                     in
281                                         SmlInfo.error gp i EM.COMPLAIN                                         SmlInfo.error gp i EM.COMPLAIN
282                                            ("exception raised while compiling "                                            ("exception raised while compiling "

Legend:
Removed from v.382  
changed lines
  Added in v.383

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