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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/high-il/normalize-ein.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/high-il/normalize-ein.sml

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

revision 2437, Mon Sep 23 22:28:42 2013 UTC revision 2448, Tue Oct 1 00:57:08 2013 UTC
# Line 2  Line 2 
2  structure NormalizeEin = struct  structure NormalizeEin = struct
3    
4      local      local
5      structure G = GenericEin  
6      structure E = Ein      structure E = Ein
     structure S = Specialize  
7    
     in  
8    
9        in
10    
11          (*
12  (*Flattens Add constructor: change, expression *)  (*Flattens Add constructor: change, expression *)
13  fun mkAdd [e]=(1,e)  fun mkAdd [e]=(1,e)
14      | mkAdd(e)=let      | mkAdd(e)=let
# Line 373  Line 373 
373      in      in
374      ((Ein.EIN{params=params, index=index, body=b}))      ((Ein.EIN{params=params, index=index, body=b}))
375      end      end
   end  
376    
377    
378    
379                       4 end*)
380    
381    
382    end
383    
384    
385  end (* local *)  end (* local *)

Legend:
Removed from v.2437  
changed lines
  Added in v.2448

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