Diff of /sml/trunk/src/compiler/FLINT/main/flintcomp.sml

Parent Directory | Revision Log | Patch

	revision 185, Tue Nov 10 21:01:05 1998 UTC	revision 186, Wed Nov 11 05:24:43 1998 UTC
#	Line 103	Line 103
103
104	(* pseudo FLINT phases *)	(* pseudo FLINT phases *)
105	| runphase ("id",(f,r,l)) = (f,r,l)	| runphase ("id",(f,r,l)) = (f,r,l)
106		| runphase (p as "collect",(f,r,l)) = (fcollect f, r, p)
107	| runphase (p as "print",(f,r,l)) =	| runphase (p as "print",(f,r,l)) =
108	(say("\n[ After "^l^"... ]\n\n");	(say("\n[ After "^l^"... ]\n\n");
109	PPFlint.printFundec f; (f,r,l)	PPFlint.printFundec f; (f,r,l)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.185   changed lines   Added in v.186

---

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