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 666, Fri Jun 16 08:27:00 2000 UTC revision 677, Mon Jun 26 00:56:56 2000 UTC
# Line 201  Line 201 
201                                   reqpriv = required }                                   reqpriv = required }
202                  end                  end
203                | GG.ERRORGROUP => ERRORCOLLECTION                | GG.ERRORGROUP => ERRORCOLLECTION
204          fun s_coll (p, s) = let          fun s_coll (p, s, setup) = let
205              val i =              val i =
206                  SmlInfo.info gp { sourcepath = p, group = group, sh_spec = s }                  SmlInfo.info gp { sourcepath = p, group = group,
207                                      sh_spec = s, setup = setup }
208              val exports =              val exports =
209                  case SmlInfo.exports gp i of                  case SmlInfo.exports gp i of
210                      NONE => SS.empty                      NONE => SS.empty

Legend:
Removed from v.666  
changed lines
  Added in v.677

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