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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3397, Tue Nov 10 19:44:40 2015 UTC revision 3398, Wed Nov 11 01:17:58 2015 UTC
# Line 72  Line 72 
72                        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)
73                    | AST.E_LoadNrrd(mvs, name, ty) => (                    | AST.E_LoadNrrd(mvs, name, ty) => (
74                        case TU.pruneHead ty                        case TU.pruneHead ty
75                         of Types.T_DynSequence _ => string "loadSeq"                         of Types.T_Sequence _ => string "loadSeq"
76                          | Types.T_Image _ => string "loadImage"                          | Types.T_Image _ => string "loadImage"
77                          | _ => raise Fail "impossible"                          | _ => raise Fail "impossible"
78                        (* end case *);                        (* end case *);

Legend:
Removed from v.3397  
changed lines
  Added in v.3398

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