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

Parent Directory | Revision Log | Patch

	revision 1112, Thu May 5 01:30:20 2011 UTC	revision 1113, Thu May 5 04:11:52 2011 UTC
#	Line 114	Line 114
114	PP.openHBox ppStrm;	PP.openHBox ppStrm;
115	string "else"; sp(); ppBlock (ppStrm, stms2);	string "else"; sp(); ppBlock (ppStrm, stms2);
116	PP.closeBox ppStrm)	PP.closeBox ppStrm)
117	| AST.S_IfThenElse(e, AST.S_Block stms1, s2) => raise Fail "FIXME"	| AST.S_IfThenElse(e, AST.S_Block stms1, s2) => (
118		PP.openHBox ppStrm;
119		string "if"; sp(); ppExp(ppStrm, e);
120		sp(); ppBlock (ppStrm, stms1);
121		PP.closeBox ppStrm;
122		string "else";
123		PP.openVBox ppStrm indent;
124		nl(); ppStmt s2;
125		PP.closeBox ppStrm)
126	| AST.S_IfThenElse(e, s1, AST.S_Block stms2) => raise Fail "FIXME"	| AST.S_IfThenElse(e, s1, AST.S_Block stms2) => raise Fail "FIXME"
127	| AST.S_IfThenElse(e, s1, s2) => (	| AST.S_IfThenElse(e, s1, s2) => (
128	PP.openVBox ppStrm indent;	PP.openVBox ppStrm indent;

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1112   changed lines   Added in v.1113

---

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