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 305, Mon May 31 15:00:06 1999 UTC revision 309, Wed Jun 2 03:21:57 1999 UTC
# Line 147  Line 147 
147          else case Primitive.fromString (AbsPath.spec sourcepath) of          else case Primitive.fromString (AbsPath.spec sourcepath) of
148              SOME p => let              SOME p => let
149                  val exports = Primitive.exports primconf p                  val exports = Primitive.exports primconf p
150                  val plook = Primitive.lookup primconf p                  val env = Primitive.da_env primconf p
151                  fun addFN (s, m) = let                  fun addFN (s, m) = let
                     val env = plook s  
152                      val fsbn = (NONE, DG.SB_BNODE (DG.PNODE p))                      val fsbn = (NONE, DG.SB_BNODE (DG.PNODE p))
153                  in                  in
154                      SymbolMap.insert (m, s, (fsbn, env))                      SymbolMap.insert (m, s, (fsbn, env))

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

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