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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/high-il/move-sums.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/high-il/move-sums.sml

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

revision 2610, Fri May 2 18:31:56 2014 UTC revision 2611, Mon May 5 21:21:12 2014 UTC
# Line 77  Line 77 
77          | E.Probe(e1,e2)  => E.Probe(e1, rewriteBody e2)          | E.Probe(e1,e2)  => E.Probe(e1, rewriteBody e2)
78          | E.Lift e        => E.Lift(rewriteBody e)          | E.Lift e        => E.Lift(rewriteBody e)
79          | E.Sum(sx,E.Prod e)        =>shiftSum(sx,e)          | E.Sum(sx,E.Prod e)        =>shiftSum(sx,e)
80          | E.Sum _         => body          | E.Sum (sx,e)         => shiftSum(sx,[e])
81          (* end case *))          (* end case *))
82    
83          val b=rewriteBody body          val b=rewriteBody body

Legend:
Removed from v.2610  
changed lines
  Added in v.2611

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