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

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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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