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 308, Wed Jun 2 01:26:19 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))

Removed from v.308  
changed lines
  Added in v.309

ViewVC Help
Powered by ViewVC 1.0.0