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.sml
ViewVC logotype

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

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

revision 2602, Wed Apr 23 20:01:52 2014 UTC revision 2603, Thu Apr 24 03:58:37 2014 UTC
# Line 96  Line 96 
96    
97  fun doNormalize e=(let  fun doNormalize e=(let
98      val ordered=Order.orderfn(e)      val ordered=Order.orderfn(e)
99        val str=print(String.concat ["\n Ordered:\n",P.printerE(ordered),"\n"])
100      val (n,change)=NE.normalize(ordered)      val (n,change)=NE.normalize(ordered)
101      in (case change      in (case change
102          of 0 =>ordered          of 0 =>ordered
103          | _ => let          | _ => let
104              val str=String.concat ["\n Ordered:\n",P.printerE(ordered),"\n =>",P.printerE(n)]              val str=String.concat ["\n =>",P.printerE(n)]
105              val p=print str              val p=print str
106              in  n              in  n
107              end              end

Legend:
Removed from v.2602  
changed lines
  Added in v.2603

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