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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/low-il/check-low-il.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/low-il/check-low-il.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 108  Line 108 
108    
109             | Op.cons(Ty.TensorTy(ty),_)=>let             | Op.cons(Ty.TensorTy(ty),_)=>let
110                      val h=hd(ty)                      val h=hd(ty)
111                      val list=List.take(ty, length(ty)-1)                      val list=tl(ty) (*List.take(ty, length(ty)-1)*)
112                      val arg=List.tabulate(h,fn _=>Ty.TensorTy(list))                      val arg=List.tabulate(h,fn _=>Ty.TensorTy(list))
113                      in    (Ty.TensorTy(ty),arg)                      in    (Ty.TensorTy(ty),arg)
114                      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