Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/ast/ast-pp.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/ast/ast-pp.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;

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