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/semant.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/semant/semant.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 771, Sat Dec 30 13:06:09 2000 UTC revision 838, Tue Jun 5 19:10:21 2001 UTC
# Line 244  Line 244 
244          in          in
245              #1 (valOf (SymbolMap.find (exports, PervAccess.pervStrSym)))              #1 (valOf (SymbolMap.find (exports, PervAccess.pervStrSym)))
246          end          end
247            val _ = MemberCollection.mkIndex (gp, g, mc)
248          val (exports, rp, isl) =          val (exports, rp, isl) =
249              MemberCollection.build (mc, filter, gp, pfsbn ())              MemberCollection.build (mc, filter, gp, pfsbn ())
250          val subgroups = filt_th_sgl (MemberCollection.subgroups mc, isl)          val subgroups = filt_th_sgl (MemberCollection.subgroups mc, isl)
# Line 274  Line 275 
275          in          in
276              #1 (valOf (SymbolMap.find (exports, PervAccess.pervStrSym)))              #1 (valOf (SymbolMap.find (exports, PervAccess.pervStrSym)))
277          end          end
278            val _ = MemberCollection.mkIndex (gp, g, mc)
279          val (exports, rp, isl) =          val (exports, rp, isl) =
280              MemberCollection.build (mc, filter, gp, pfsbn ())              MemberCollection.build (mc, filter, gp, pfsbn ())
281          val subgroups = filt_th_sgl (MemberCollection.subgroups mc, isl)          val subgroups = filt_th_sgl (MemberCollection.subgroups mc, isl)

Legend:
Removed from v.771  
changed lines
  Added in v.838

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