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

Parent Directory | Revision Log | 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 =

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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