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

SCM Repository

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

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

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

revision 2514, Thu Nov 21 16:27:12 2013 UTC revision 2515, Mon Dec 2 03:42:14 2013 UTC
# Line 12  Line 12 
12      in      in
13    
14    
15  val x=[]  val x=[12]
16    
17    
18  val line="\n ------------------ "  val line="\n ------------------ "
19    
20  fun test(e)= let val (n,c)=N.normalize(e)  fun test(e)=
21  in (print line;print(P.printerE(e)); print "=>";print( P.printerE(n)); print line;n)      let val x=(print line;print(P.printerE(e)); print "=>")
22        val (n,c)=N.normalize(e)
23        in  (print( P.printerE(n)); print line;n)
24      end      end
25    
26    

Legend:
Removed from v.2514  
changed lines
  Added in v.2515

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