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/branches/blume-private-devel/src/cm/semant/members.sml
ViewVC logotype

Diff of /sml/branches/blume-private-devel/src/cm/semant/members.sml

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

revision 1634, Tue Sep 28 15:53:10 2004 UTC revision 1635, Tue Sep 28 17:12:31 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.1634  
changed lines
  Added in v.1635

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