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/compiler/TopLevel/interact/evalloop.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/interact/evalloop.sml

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

revision 1249, Tue Jun 25 21:23:40 2002 UTC revision 1250, Fri Jul 5 14:22:42 2002 UTC
# Line 167  Line 167 
167                          val msg = exnMsg exn                          val msg = exnMsg exn
168                          val name = exnName exn                          val name = exnName exn
169                      in                      in
170                          if (msg = name)                          if msg = name then
171                          then say (concat                              say (concat ["\nuncaught exception ", name, "\n"])
172                                        ["\nuncaught exception ",                          else say (concat ["\nuncaught exception ", name,
173                                         exnName exn, "\n"])                                            " [", msg, "]\n"]);
                         else say (concat  
                                       ["\nuncaught exception ", exnName exn,  
                                        " [", exnMsg exn, "]\n"]);  
174                          showhist exn;                          showhist exn;
175                          flush();                          flush();
176                          loop()                          loop()

Legend:
Removed from v.1249  
changed lines
  Added in v.1250

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