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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/simplify/simplify.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/simplify/simplify.sml

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

revision 1687, Wed Jan 25 13:02:32 2012 UTC revision 1688, Wed Jan 25 13:36:13 2012 UTC
# Line 184  Line 184 
184                  in                  in
185                    (stms, S.E_Cons xs)                    (stms, S.E_Cons xs)
186                  end                  end
187                | AST.E_Seq es => let
188                    val (stms, xs) = simplifyExpsToVars (es, stms)
189                    in
190                      (stms, S.E_Seq xs)
191                    end
192              | AST.E_Slice(e, indices, ty) => let (* tensor slicing *)              | AST.E_Slice(e, indices, ty) => let (* tensor slicing *)
193                  val (stms, x) = simplifyExpToVar (e, stms)                  val (stms, x) = simplifyExpToVar (e, stms)
194                  fun f ([], ys, stms) = (stms, List.rev ys)                  fun f ([], ys, stms) = (stms, List.rev ys)

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

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