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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/einTest/testOrder.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/einTest/testOrder.sml

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

revision 2499, Mon Nov 4 16:10:36 2013 UTC revision 2502, Mon Nov 4 21:33:35 2013 UTC
# Line 11  Line 11 
11  val line="-----------------------------------------------"  val line="-----------------------------------------------"
12  fun testO(e)= (  fun testO(e)= (
13          print line; print (P.printerE e ); print("     =>  "); let val u=(O.orderfn e)          print line; print (P.printerE e ); print("     =>  "); let val u=(O.orderfn e)
14  in (print(P.printerE(u));print("     =>  "); print(P.printerE(N.normalize(u)))  )  end  in (print(P.printerE(u));print("     =>  "); let val (u2,c)=N.normalize(u)  in print(P.printerE(u2)) end  )  end
15          )          )
16    
17    

Legend:
Removed from v.2499  
changed lines
  Added in v.2502

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