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 301, Fri May 28 09:43:39 1999 UTC revision 302, Sat May 29 03:19:59 1999 UTC
# Line 148  Line 148 
148          val filter = Option.map (applyTo mc) e          val filter = Option.map (applyTo mc) e
149          val (exports, rp) = MemberCollection.build (mc, filter, error, gp)          val (exports, rp) = MemberCollection.build (mc, filter, error, gp)
150          val subgroups = MemberCollection.subgroups mc          val subgroups = MemberCollection.subgroups mc
151          val { required = rp', granted } = p          val { required = rp', granted = gr } = p
152          val p' = { required = StringSet.union (rp, rp'), granted = granted }          val rp'' = StringSet.difference (StringSet.union (rp, rp'), gr)
153            val p' = { required = rp'', granted = gr }
154      in      in
155          GG.GROUP { exports = exports, islib = false,          GG.GROUP { exports = exports, islib = false,
156                     privileges = p', grouppath = g,                     privileges = p', grouppath = g,

Legend:
Removed from v.301  
changed lines
  Added in v.302

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