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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/high-to-mid/handleEin.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/high-to-mid/handleEin.sml

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

revision 2923, Tue Mar 3 15:33:44 2015 UTC revision 2955, Wed Mar 4 23:06:28 2015 UTC
# Line 71  Line 71 
71          end          end
72    
73      fun z e=String.concat["\n\n Found: ",P.printbody e,"=> 0\n"]      fun z e=String.concat["\n\n Found: ",P.printbody e,"=> 0\n"]
74      fun sweep e= (case e      fun sweep e= (z e;case e
75          of E.Tensor _           => e          of E.Tensor _           => e
76          | E.Add es             => E.Add(List.map sweep es)          | E.Add es             => E.Add(List.map sweep es)
77          | E.Sub(e1,e2)         => E.Sub(sweep e1,sweep e2)          | E.Sub(e1,e2)         => E.Sub(sweep e1,sweep e2)

Legend:
Removed from v.2923  
changed lines
  Added in v.2955

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