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 301, Fri May 28 09:43:39 1999 UTC revision 305, Mon May 31 15:00:06 1999 UTC
# Line 104  Line 104 
104              fun w0 s = error EM.WARN s EM.nullErrorBody              fun w0 s = error EM.WARN s EM.nullErrorBody
105              val expansions = PrivateTools.expand e0 (sourcepath, class)              val expansions = PrivateTools.expand e0 (sourcepath, class)
106              fun exp2coll (PrivateTools.GROUP p) = let              fun exp2coll (PrivateTools.GROUP p) = let
107                      val g as GG.GROUP { exports = i, islib, privileges, ... } =                      val g as GG.GROUP { exports = i, islib, required, ... } =
108                          rparse p                          rparse p
109                      val gi = if islib then SymbolMap.empty else i                      val gi = if islib then SymbolMap.empty else i
110                  in                  in
111                      COLLECTION { imports = i, gimports = gi, smlfiles = [],                      COLLECTION { imports = i, gimports = gi, smlfiles = [],
112                                   localdefs = SymbolMap.empty,                                   localdefs = SymbolMap.empty,
113                                   subgroups = [g],                                   subgroups = [g],
114                                   reqpriv = #required privileges }                                   reqpriv = required }
115                  end                  end
116                | exp2coll (PrivateTools.SMLSOURCE src) = let                | exp2coll (PrivateTools.SMLSOURCE src) = let
117                      val { sourcepath = p, history = h, share = s } = src                      val { sourcepath = p, history = h, share = s } = src

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

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