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 517, Wed Jan 12 03:17:34 2000 UTC revision 518, Wed Jan 12 06:26:25 2000 UTC
# Line 53  Line 53 
53      (* constructing member collections *)      (* constructing member collections *)
54      val emptyMembers : members      val emptyMembers : members
55      val member :      val member :
56          GeneralParams.info * (pathname option -> pathname -> group)          GeneralParams.info * (pathname option -> pathname -> group) *
57                                 (string -> bool)
58          -> { name: string, mkpath: string -> pathname,          -> { name: string, mkpath: string -> pathname,
59               group: pathname * region, class: cm_class option,               group: pathname * region, class: cm_class option,
60               context: SrcPath.context }               context: SrcPath.context }
# Line 215  Line 216 
216      end      end
217    
218      fun emptyMembers (env, _) = env      fun emptyMembers (env, _) = env
219      fun member (gp, rparse) arg (env, curlib) = let      fun member (gp, rparse, ldpi) arg (env, curlib) = let
220          val coll = MemberCollection.expandOne (gp, rparse curlib) arg          val coll = MemberCollection.expandOne (gp, rparse curlib, ldpi) arg
221          val group = #group arg          val group = #group arg
222          val error = GroupReg.error (#groupreg gp) group          val error = GroupReg.error (#groupreg gp) group
223          fun e0 s = error EM.COMPLAIN s EM.nullErrorBody          fun e0 s = error EM.COMPLAIN s EM.nullErrorBody

Legend:
Removed from v.517  
changed lines
  Added in v.518

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