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/bootstrap/cmb-slave-hook.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/cmb-slave-hook.sml

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

revision 456, Wed Oct 27 15:09:58 1999 UTC revision 457, Thu Oct 28 05:58:19 1999 UTC
# Line 9  Line 9 
9      local      local
10          type slave =          type slave =
11              (string * string) ->              (string * string) ->
12              (GroupGraph.group * (DependencyGraph.sbnode -> bool)) option              (GroupGraph.group * (DependencyGraph.sbnode -> bool) *
13                 PathConfig.mode) option
14          val m = ref (StringMap.empty: slave StringMap.map)          val m = ref (StringMap.empty: slave StringMap.map)
15      in      in
16          fun init arch f = m := StringMap.insert (!m, arch, f)          fun init arch f = m := StringMap.insert (!m, arch, f)

Legend:
Removed from v.456  
changed lines
  Added in v.457

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