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

SCM Repository

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

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

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

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