Diff of /sml/trunk/src/compiler/Elaborator/elaborate/elabcore.sml

Parent Directory | Revision Log | Patch

	revision 1645, Mon Oct 11 21:37:17 2004 UTC	revision 1646, Mon Oct 11 22:57:55 2004 UTC
#	Line 1216	Line 1216
1216	| _ => bug "makeFUNdec:checkuniq")	| _ => bug "makeFUNdec:checkuniq")
1217	fbs1));	fbs1));
1218	(let val (ndec, nenv) =	(let val (ndec, nenv) =
1219	FUNdec(completeMatch,map makefb fbs1,region,compInfo)	FUNdec(completeMatch,map makefb fbs1,compInfo)
1220	in showDec("elabFUNdec: ",ndec,nenv);	in showDec("elabFUNdec: ",ndec,nenv);
1221	(ndec, nenv, TS.empty, updt)	(ndec, nenv, TS.empty, updt)
1222	end)	end)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1645   changed lines   Added in v.1646

---

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