Diff of /sml/trunk/src/compiler/FLINT/opt/fcontract.sml

Parent Directory | Revision Log | Patch

	revision 529, Mon Jan 31 22:53:38 2000 UTC	revision 530, Mon Jan 31 22:53:55 2000 UTC
#	Line 474	Line 474
474	foldl (fn (f,le) => F.FIX([f],le))	foldl (fn (f,le) => F.FIX([f],le))
475	(wrap nle) fdecs	(wrap nle) fdecs
476	(* Ugly hack: force one more traversal *)	(* Ugly hack: force one more traversal *)
477	val nle = loop nm nle #2	(* val nle = loop nm nle #2 *)
478	in  click_branch();	in  click_branch();
479	loop nm nle cont	loop nm nle cont
480	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.529   changed lines   Added in v.530

---

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