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 336, Thu Jun 17 09:23:20 1999 UTC revision 348, Tue Jun 22 05:43:46 1999 UTC
# Line 105  Line 105 
105              fun w0 s = error EM.WARN s EM.nullErrorBody              fun w0 s = error EM.WARN s EM.nullErrorBody
106              val expansions = PrivateTools.expand e0 (sourcepath, class)              val expansions = PrivateTools.expand e0 (sourcepath, class)
107              fun exp2coll (PrivateTools.GROUP p) = let              fun exp2coll (PrivateTools.GROUP p) = let
108                      val g as GG.GROUP { exports = i, islib, required, ... } =                      val g as GG.GROUP { exports = i, kind, required, ... } =
109                          rparse p                          rparse p
110                      val gi = if islib then SymbolMap.empty else i                      val gi = case kind of GG.NOLIB => i | _ => SymbolMap.empty
111                  in                  in
112                      COLLECTION { imports = i, gimports = gi, smlfiles = [],                      COLLECTION { imports = i, gimports = gi, smlfiles = [],
113                                   localdefs = SymbolMap.empty,                                   localdefs = SymbolMap.empty,

Legend:
Removed from v.336  
changed lines
  Added in v.348

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