Diff of /trunk/src/ast/ast-pp.sml

Parent Directory | Revision Log | Patch

	revision 102, Fri May 28 15:20:55 2010 UTC	revision 103, Tue Jun 1 16:04:04 2010 UTC
#	Line 101	Line 101
101	| AST.S_IfThenElse(e, AST.S_Block stms1, AST.S_Block stms2) => (	| AST.S_IfThenElse(e, AST.S_Block stms1, AST.S_Block stms2) => (
102	PP.openHBox ppStrm;	PP.openHBox ppStrm;
103	string "if"; sp(); ppExp(ppStrm, e);	string "if"; sp(); ppExp(ppStrm, e);
104	sp(); ppBlock (ppStrm, stms);	sp(); ppBlock (ppStrm, stms1);
105	PP.closeBox ppStrm;	PP.closeBox ppStrm;
106	PP.openHBox ppStrm;	PP.openHBox ppStrm;
107	string "else"; sp(); ppBlock (ppStrm, stms);	string "else"; sp(); ppBlock (ppStrm, stms2);
108	PP.closeBox ppStrm)	PP.closeBox ppStrm)
109	| AST.S_IfThenElse(e, AST.S_Block stms1, s2) => raise Fail "FIXME"	| AST.S_IfThenElse(e, AST.S_Block stms1, s2) => raise Fail "FIXME"
110	| AST.S_IfThenElse(e, s1, AST.S_Block stms2) => raise Fail "FIXME"	| AST.S_IfThenElse(e, s1, AST.S_Block stms2) => raise Fail "FIXME"

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.102   changed lines   Added in v.103

---

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