SCM Repository
Diff of /branches/charisee/src/compiler/high-il/normalize.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 2583, Thu Apr 10 19:50:28 2014 UTC | revision 2584, Tue Apr 15 03:22:58 2014 UTC | |
|---|---|---|
| # | Line 98 | Line 98 |
| 98 | val ordered=Order.orderfn(e) | val ordered=Order.orderfn(e) |
| 99 | val (n,change)=NE.normalize(ordered) | val (n,change)=NE.normalize(ordered) |
| 100 | in (case change | in (case change |
| 101 | of 0 =>e | of 0 =>ordered |
| 102 | | _ => let | | _ => let |
| 103 | val str=String.concat ["\n Ordered:\n",P.printerE(ordered),"\n =>",P.printerE(n)] | val str=String.concat ["\n Ordered:\n",P.printerE(ordered),"\n =>",P.printerE(n)] |
| 104 | val p=print str | val p=print str |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
