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 303, Sun May 30 10:23:20 1999 UTC revision 304, Mon May 31 09:10:08 1999 UTC
# Line 140  Line 140 
140                     privileges = { required = StringSet.empty,                     privileges = { required = StringSet.empty,
141                                    granted = StringSet.empty },                                    granted = StringSet.empty },
142                     grouppath = path,                     grouppath = path,
143                     subgroups = [] }                     subgroups = [],
144                       stableinfo = NONE }
145    
146    
147      fun group (g, p, e, m, error, gp) = let      fun group (g, p, e, m, error, gp) = let
# Line 154  Line 155 
155      in      in
156          GG.GROUP { exports = exports, islib = false,          GG.GROUP { exports = exports, islib = false,
157                     privileges = p', grouppath = g,                     privileges = p', grouppath = g,
158                     subgroups = subgroups }                     subgroups = subgroups,
159                       stableinfo = NONE }
160      end      end
161    
162      fun library (g, p, e, m, error, gp) = let      fun library (g, p, e, m, error, gp) = let
# Line 167  Line 169 
169      in      in
170          GG.GROUP { exports = exports, islib = true,          GG.GROUP { exports = exports, islib = true,
171                     privileges = p', grouppath = g,                     privileges = p', grouppath = g,
172                     subgroups = subgroups }                     subgroups = subgroups,
173                       stableinfo = NONE }
174      end      end
175    
176      local      local

Legend:
Removed from v.303  
changed lines
  Added in v.304

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