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 275, Sat May 15 09:54:52 1999 UTC revision 277, Mon May 17 09:13:26 1999 UTC
# Line 46  Line 46 
46      val emptyMembers : members      val emptyMembers : members
47      val member : (pathname -> group)      val member : (pathname -> group)
48          -> { sourcepath: pathname, group: pathname, class: cm_symbol option,          -> { sourcepath: pathname, group: pathname, class: cm_symbol option,
49               error: string -> unit }               error: string -> (PrettyPrint.ppstream -> unit) -> unit }
50          -> members          -> members
51      val members : members * members -> members      val members : members * members -> members
52      val guarded_members :      val guarded_members :
# Line 157  Line 157 
157      fun member rparse arg env = let      fun member rparse arg env = let
158          val coll = MemberCollection.expandOne (getExports o rparse) arg          val coll = MemberCollection.expandOne (getExports o rparse) arg
159          val error = #error arg          val error = #error arg
160            fun e0 s = error s GenericVC.ErrorMsg.nullErrorBody
161      in      in
162          MemberCollection.sequential (env, coll, error)          MemberCollection.sequential (env, coll, e0)
163      end      end
164      fun members (m1, m2) env = m2 (m1 env)      fun members (m1, m2) env = m2 (m1 env)
165      fun guarded_members (c, (m1, m2), error) env =      fun guarded_members (c, (m1, m2), error) env =

Legend:
Removed from v.275  
changed lines
  Added in v.277

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