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 2607, Thu May 1 17:36:16 2014 UTC revision 2608, Fri May 2 18:04:54 2014 UTC
# Line 38  Line 38 
38              of ((C,[]),(E,[]))  => (C ,c2,E)              of ((C,[]),(E,[]))  => (C ,c2,E)
39              | ((C,D),(E,[]))    => (C@[rewriteSum([c1],D)], c2,E)              | ((C,D),(E,[]))    => (C@[rewriteSum([c1],D)], c2,E)
40              | ((C,[]),(E,F))    => embed(C,c2,E,[c1],F)              | ((C,[]),(E,F))    => embed(C,c2,E,[c1],F)
41              |  ((C,D),(E,F))=> embed(C,[c1],D,c2,B)              |  ((C,D),_)=> embed(C,[c1],D,c2,B)
42              (*end case*))              (*end case*))
43          (*end case*))          (*end case*))
44    

Legend:
Removed from v.2607  
changed lines
  Added in v.2608

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