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

SCM Repository

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

Diff of /branches/vis15/src/compiler/simplify/util.sml

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

revision 3482, Sat Dec 5 14:43:53 2015 UTC revision 3501, Thu Dec 17 20:07:13 2015 UTC
# Line 80  Line 80 
80                  in                  in
81                    (VMap.insert(env, x, x'), x')                    (VMap.insert(env, x, x'), x')
82                  end                  end
83            fun cvtBlock (env, S.Block stms) = let            fun cvtBlock (env, S.Block{props, code}) = let
84                  fun cvtStms (env, [], stms') = (env, S.Block(List.rev stms'))                  fun cvtStms (env, [], stms') = (env, S.Block{props = props, code = List.rev stms'})
85                    | cvtStms (env, stm::stms, stms') = let                    | cvtStms (env, stm::stms, stms') = let
86                        val (env, stm') = cvtStm (env, stm)                        val (env, stm') = cvtStm (env, stm)
87                        in                        in
88                          cvtStms (env, stms, stm'::stms')                          cvtStms (env, stms, stm'::stms')
89                        end                        end
90                  in                  in
91                    cvtStms (env, stms, [])                    cvtStms (env, code, [])
92                  end                  end
93            and cvtStm (env, stm) = (case stm            and cvtStm (env, stm) = (case stm
94                   of S.S_Var(x, NONE) => let                   of S.S_Var(x, NONE) => let

Legend:
Removed from v.3482  
changed lines
  Added in v.3501

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