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/cm/paths/pathconfig.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/paths/pathconfig.sml

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

revision 368, Sat Jul 3 13:05:59 1999 UTC revision 369, Sun Jul 4 12:55:20 1999 UTC
# Line 29  Line 29 
29    
30      type mode = string StringMap.map ref      type mode = string StringMap.map ref
31    
32      fun set (m, a, s) = m := StringMap.insert (!m, a, s)      fun set (m, a, s) = m := (Era.newEra (); StringMap.insert (!m, a, s))
33      fun reset m = m := StringMap.empty      fun reset m = m := (Era.newEra (); StringMap.empty)
34      fun cancel (m, a) = (m := #1 (StringMap.remove (!m, a)))      fun cancel (m, a) =
35          handle LibBase.NotFound => ()          (Era.newEra ();
36             (m := #1 (StringMap.remove (!m, a)))
37             handle LibBase.NotFound => ())
38    
39      fun new () = ref StringMap.empty      fun new () = ref StringMap.empty
40    

Legend:
Removed from v.368  
changed lines
  Added in v.369

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