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/system/Basis/Implementation/exn-name.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/exn-name.sml

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

revision 938, Thu Sep 20 21:27:33 2001 UTC revision 939, Tue Sep 25 19:25:48 2001 UTC
# Line 17  Line 17 
17    
18    end = struct    end = struct
19    
20      val exnName : exn -> string = InlineT.cast(fn (ref s, _,_) => s)      val exnName : exn -> string = ExnInfoHook.exnName (* InlineT.cast(fn (ref s, _,_) => s) *)
21    
22      fun exnMessage (OS.SysErr(s, NONE)) =      fun exnMessage (OS.SysErr(s, NONE)) =
23            "SysErr: " ^ s            "SysErr: " ^ s
# Line 48  Line 48 
48        | exnMessage Domain = "domain error"        | exnMessage Domain = "domain error"
49        | exnMessage e = exnName e        | exnMessage e = exnName e
50    
     val _ = ExnInfoHook.exnNameHook := exnName  
51      val _ = ExnInfoHook.exnMessageHook := exnMessage      val _ = ExnInfoHook.exnMessageHook := exnMessage
52    
53    end    end

Legend:
Removed from v.938  
changed lines
  Added in v.939

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