Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/PervEnv/Basis/clean-timer.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/PervEnv/Basis/clean-timer.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 89 - (view) (download)

1 : monnier 89 (* clean-timer.sml
2 :     *
3 :     * COPYRIGHT (c) 1998 Bell Labs, Lucent Technologies.
4 :     *)
5 :    
6 :     structure CleanTimer :> sig end =
7 :     struct
8 :    
9 :     val _ = CleanUp.addCleaner (
10 :     "InitTimers",
11 :     [CleanUp.AtInit, CleanUp.AtInitFn],
12 :     fn _ => InternalTimer.resetTimers())
13 :    
14 :     end;
15 :    
16 :     (*
17 :     * $Log: clean-timer.sml,v $
18 :     * Revision 1.1.1.1 1998/04/08 18:40:04 george
19 :     * Version 110.5
20 :     *
21 :     *)

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