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 285, Wed May 19 23:31:25 1999 UTC revision 286, Fri May 21 07:47:16 1999 UTC
# Line 48  Line 48 
48    
49      (* constructing member collections *)      (* constructing member collections *)
50      val emptyMembers : members      val emptyMembers : members
51      val member : (pathname -> group)      val member : GeneralParams.params * (pathname -> group)
52          -> { sourcepath: pathname, group: pathname, class: cm_symbol option,          -> { sourcepath: pathname, group: pathname, class: cm_symbol option,
53               error: string -> (PrettyPrint.ppstream -> unit) -> unit }               error: string -> (PrettyPrint.ppstream -> unit) -> unit }
54          -> members          -> members
# Line 183  Line 183 
183            gimports = if islib then SymbolMap.empty else exports }            gimports = if islib then SymbolMap.empty else exports }
184    
185      fun emptyMembers env = env      fun emptyMembers env = env
186      fun member rparse arg env = let      fun member (params, rparse) arg env = let
187          val coll = MemberCollection.expandOne (getExports o rparse) arg          val coll = MemberCollection.expandOne (params, getExports o rparse) arg
188          val error = #error arg          val error = #error arg
189          fun e0 s = error s GenericVC.ErrorMsg.nullErrorBody          fun e0 s = error s GenericVC.ErrorMsg.nullErrorBody
190      in      in

Legend:
Removed from v.285  
changed lines
  Added in v.286

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