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

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

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

revision 641, Thu May 11 01:16:45 2000 UTC revision 642, Thu May 11 07:30:29 2000 UTC
# Line 204  Line 204 
204      fun group arg = let      fun group arg = let
205          val { path = g, privileges = p, exports = e, members = m,          val { path = g, privileges = p, exports = e, members = m,
206                gp, curlib, owner, error, initgroup } = arg                gp, curlib, owner, error, initgroup } = arg
207          val mc = applyTo (MemberCollection.implicit initgroup, curlib) m          val mc = applyTo (MemberCollection.implicit gp initgroup, curlib) m
208          val filter = Option.map (applyTo mc) e          val filter = Option.map (applyTo mc) e
209          val pfsbn = let          val pfsbn = let
210              val { exports, ... } =              val { exports, ... } =
# Line 226  Line 226 
226                     kind = GG.NOLIB { subgroups = subgroups, owner = owner },                     kind = GG.NOLIB { subgroups = subgroups, owner = owner },
227                     required = rp'',                     required = rp'',
228                     grouppath = g,                     grouppath = g,
229                       sources = MemberCollection.sources mc,
230                     sublibs = sgl2sll subgroups }                     sublibs = sgl2sll subgroups }
231      end      end
232    
233      fun library arg = let      fun library arg = let
234          val { path = g, privileges = p, exports = e, members = m,          val { path = g, privileges = p, exports = e, members = m,
235                version, gp, initgroup } = arg                version, gp, initgroup } = arg
236          val mc = applyTo (MemberCollection.implicit initgroup, SOME g) m          val mc = applyTo (MemberCollection.implicit gp initgroup, SOME g) m
237          val filter = SOME (applyTo mc e)          val filter = SOME (applyTo mc e)
238          val pfsbn = let          val pfsbn = let
239              val { exports, ... } =              val { exports, ... } =
# Line 254  Line 255 
255                                                           wrapped = wr } },                                                           wrapped = wr } },
256                     required = rp'',                     required = rp'',
257                     grouppath = g,                     grouppath = g,
258                       sources = MemberCollection.sources mc,
259                     sublibs = sgl2sll subgroups }                     sublibs = sgl2sll subgroups }
260      end      end
261    

Legend:
Removed from v.641  
changed lines
  Added in v.642

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