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

SCM Repository

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

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

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

revision 2447, Sat Sep 28 18:10:51 2013 UTC revision 2448, Tue Oct 1 00:57:08 2013 UTC
# Line 8  Line 8 
8  structure Op=Operators  structure Op=Operators
9  in  in
10    
 val a=C.checker(Op.Curl2d)  
11    
12    fun tester(e)=
13        let val m=C.printType(C.checker e)
14        in
15            (P.printerE e; print m)
16        end
17    
18    
19    val addTensor = E.EIN{
20        params = [E.TEN, E.TEN],
21        index = [],
22        body = E.Add[E.Tensor(0, []),E.Tensor(1, [])]
23    }
24    
25    
26    
27    val r=tester(addTensor)
28    
29  end; (* local *)  end; (* local *)
30    

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

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