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/branches/SMLNJ/src/cml/cml-lib/trace-cml.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/cml/cml-lib/trace-cml.sml

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

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 29, Thu Mar 12 01:05:59 1998 UTC
# Line 277  Line 277 
277    
278    (** Uncaught exception handling **)    (** Uncaught exception handling **)
279    
280      fun defaultHandlerFn (tid, ex) =      fun defaultHandlerFn (tid, ex) = let
281            Debug.sayDebug (concat [            val raisedAt = (case (SMLofNJ.exnHistory ex)
282                     of [] => ["\n"]
283                      | l => [" raised at ", List.last l, "\n"]
284                    (* end case *))
285              in
286                Debug.sayDebug (concat ([
287                CML.tidToString tid, " uncaught exception ",                CML.tidToString tid, " uncaught exception ",
288                exnName ex, " [", exnMessage ex, "]\n"                  exnName ex, " [", exnMessage ex, "]"
289              ])                ] @ raisedAt))
290              end
291    
292      val defaultHandler = ref defaultHandlerFn      val defaultHandler = ref defaultHandlerFn
293      val handlers = ref ([] : ((CML.thread_id * exn) -> bool) list)      val handlers = ref ([] : ((CML.thread_id * exn) -> bool) list)

Legend:
Removed from v.3  
changed lines
  Added in v.29

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