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 1686, Mon Jan 23 18:49:17 2012 UTC revision 1687, Wed Jan 25 13:02:32 2012 UTC
# Line 62  Line 62 
62                        ppList ppIndex ("[", ",", "]") (ppStrm, indices))                        ppList ppIndex ("[", ",", "]") (ppStrm, indices))
63                    | AST.E_Cond(e1, e2, e3, _) => (                    | AST.E_Cond(e1, e2, e3, _) => (
64                        pp e2; sp(); string "if"; sp(); pp e1; sp(); string "else"; sp(); pp e3)                        pp e2; sp(); string "if"; sp(); pp e1; sp(); string "else"; sp(); pp e3)
65                      | AST.E_Coerce{dstTy, e, ...} => (
66                          PP.openHBox ppStrm;
67                            string "("; string(TU.toString dstTy); string ")";
68                          PP.closeBox ppStrm;
69                          case e
70                           of AST.E_Var _ => pp e
71                            | AST.E_Lit _ => pp e
72                            | AST.E_Tuple _ => pp e
73                            | AST.E_Cons _ => pp e
74                            | _ => (string "("; pp e; string ")")
75                          (* end case *))
76                  (* end case *))                  (* end case *))
77            in            in
78              pp e              pp e

Legend:
Removed from v.1686  
changed lines
  Added in v.1687

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