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/NJ/internals.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/NJ/internals.sml

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

revision 1228, Thu May 23 19:05:40 2002 UTC revision 1229, Fri May 31 21:10:34 2002 UTC
# Line 23  Line 23 
23    
24      structure BTrace = struct      structure BTrace = struct
25          local          local
26              val hook = ref { reset = fn () => () }              fun mode0 (_ : bool option) : bool =
27                    raise Fail "no btrace module hooked in"
28                val hook = ref { reset = fn () => (), mode = mode0 }
29          in          in
30              fun install { corefns, reset } =              fun install { corefns, reset, mode } =
31                  (hook := { reset = reset };                  (hook := { reset = reset, mode = mode };
32                   Core.bt_install corefns)                   Core.bt_install corefns)
33              fun reset () = #reset (!hook) ()              fun reset () = #reset (!hook) ()
34                fun mode x = #mode (!hook) x
35          end          end
36          fun report () = Core.bt_report () ()          fun report () = Core.bt_report () ()
37          fun save () = Core.bt_save () ()          fun save () = Core.bt_save () ()

Legend:
Removed from v.1228  
changed lines
  Added in v.1229

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