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 397, Fri Aug 13 07:06:52 1999 UTC revision 398, Wed Aug 25 15:36:43 1999 UTC
# Line 42  Line 42 
42      structure DG = DependencyGraph      structure DG = DependencyGraph
43      structure EM = GenericVC.ErrorMsg      structure EM = GenericVC.ErrorMsg
44      structure CBE = GenericVC.BareEnvironment      structure CBE = GenericVC.BareEnvironment
45        structure E = GenericVC.Environment
46      structure SS = SymbolSet      structure SS = SymbolSet
47      structure GG = GroupGraph      structure GG = GroupGraph
48    
# Line 158  Line 159 
159                  val exports = Primitive.exports primconf p                  val exports = Primitive.exports primconf p
160                  val env = Primitive.da_env primconf p                  val env = Primitive.da_env primconf p
161                  fun addFN (s, m) = let                  fun addFN (s, m) = let
162                      val fsbn = (NONE, DG.SB_BNODE (DG.PNODE p))                      val ii = Primitive.iinfo primconf p
163                        val fsbn = (NONE, DG.SB_BNODE (DG.PNODE p, ii))
164                  in                  in
165                      SymbolMap.insert (m, s, (fsbn, env))                      SymbolMap.insert (m, s, (fsbn, env))
166                  end                  end

Legend:
Removed from v.397  
changed lines
  Added in v.398

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