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

SCM Repository

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

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

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

revision 367, Thu Sep 30 21:20:13 2010 UTC revision 387, Fri Oct 8 15:29:24 2010 UTC
# Line 123  Line 123 
123              (* end case *)              (* end case *)
124            end            end
125    
126      (* expand a SrcIL assignment to a list of DstIL assignments *)
127      fun expand (env, (y, rhs)) = let      fun expand (env, (y, rhs)) = let
128            val y' = rename (env, y)            val y' = rename (env, y)
129            fun assign rhs = [(y', rhs)]            fun assign rhs = [(y', rhs)]

Legend:
Removed from v.367  
changed lines
  Added in v.387

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