Diff of /sml/trunk/src/compiler/Elaborator/print/ppabsyn.sml

Parent Directory | Revision Log | Patch

	revision 1640, Fri Oct 1 15:20:40 2004 UTC	revision 1641, Wed Oct 6 20:18:55 2004 UTC
#	Line 315	Line 315
315	ppType env ppstrm t;	ppType env ppstrm t;
316	rpcond(atom);	rpcond(atom);
317	closeBox ppstrm)	closeBox ppstrm)
318	| ppExp'(HANDLEexp(exp, HANDLER(FNexp(rules,_))),atom,d) =	| ppExp'(HANDLEexp(exp, (rules,_)),atom,d) =
319	(openStyleBox CONSISTENT ppstrm (PP.Rel 0);	(openStyleBox CONSISTENT ppstrm (PP.Rel 0);
320	lpcond(atom);	lpcond(atom);
321	ppExp'(exp,atom,d-1); newline ppstrm; ppsay "handle ";	ppExp'(exp,atom,d-1); newline ppstrm; ppsay "handle ";
#	Line 324	Line 324
324	(fn ppstrm => fn r => ppRule context ppstrm (r,d-1)), rules);	(fn ppstrm => fn r => ppRule context ppstrm (r,d-1)), rules);
325	rpcond(atom);	rpcond(atom);
326	closeBox ppstrm)	closeBox ppstrm)
	| ppExp'(HANDLEexp(exp, HANDLER _),_,d) =
	bug "ppExp'(HANDLEexp)"
327	| ppExp'(RAISEexp(exp,_),atom,d) =	| ppExp'(RAISEexp(exp,_),atom,d) =
328	(openStyleBox CONSISTENT ppstrm (PP.Rel 0);	(openStyleBox CONSISTENT ppstrm (PP.Rel 0);
329	lpcond(atom);	lpcond(atom);

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1640   changed lines   Added in v.1641

---

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