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/semant/members.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/semant/members.sml

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

revision 1631, Fri Sep 24 21:21:31 2004 UTC revision 1632, Mon Sep 27 22:18:07 2004 UTC
# Line 216  Line 216 
216                  end                  end
217                | GG.ERRORGROUP => ERRORCOLLECTION                | GG.ERRORGROUP => ERRORCOLLECTION
218          fun s_coll (p, sparams) = let          fun s_coll (p, sparams) = let
219              val { share = s, setup, split, noguid, locl } = sparams              val { share = s, setup, split, noguid, locl, controllers } =
220                    sparams
221              val i =              val i =
222                  SmlInfo.info (split, noguid)                  SmlInfo.info (split, noguid)
223                               gp { sourcepath = p, group = group,                               gp { sourcepath = p, group = group,
224                                    sh_spec = s, setup = setup,                                    sh_spec = s, setup = setup,
225                                    locl = locl }                                    locl = locl, controllers = controllers }
226              val exports =              val exports =
227                  case SmlInfo.exports gp i of                  case SmlInfo.exports gp i of
228                      NONE => SS.empty                      NONE => SS.empty

Legend:
Removed from v.1631  
changed lines
  Added in v.1632

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