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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml

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

revision 4265, Tue Jul 26 12:48:43 2016 UTC revision 4270, Tue Jul 26 16:30:57 2016 UTC
# Line 657  Line 657 
657                            | Env.TREE e => mkAssign' (x', e) :: stms                            | Env.TREE e => mkAssign' (x', e) :: stms
658                          (* end case *))                          (* end case *))
659                      | VEC xs => let                      | VEC xs => let
660                          val (_, es, stms) = vectorArg (env, x)                          val (_, es, stms') = vectorArg (env, x)
661                            val stms = stms' @ stms
662                          in                          in
663                            ListPair.foldl                            ListPair.foldl
664                              (fn (x, e, stms) => mkAssign' (x, e) :: stms)                              (fn (x, e, stms) => mkAssign' (x, e) :: stms)

Legend:
Removed from v.4265  
changed lines
  Added in v.4270

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