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

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/basis/basis-vars.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/basis/basis-vars.sml

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

revision 2081, Mon Nov 5 23:26:06 2012 UTC revision 2120, Thu Feb 7 13:46:31 2013 UTC
# Line 148  Line 148 
148                [t, Ty.realTy] --> t                [t, Ty.realTy] --> t
149              end))              end))
150    
151      (* distance of tensors *)
152        local
153          val vec2Ty = let
154                val t = tensor[N2]
155                in
156                  [t, t] --> Ty.realTy
157                end
158           val vec3Ty = let
159                val t = tensor[N3]
160                in
161                  [t, t] --> Ty.realTy
162                end
163        in
164        val dist_t2  = monoVar (N.fn_dist, vec2Ty)
165        val dist_t3  = monoVar (N.fn_dist, vec3Ty)
166        end
167    
168    
169    (* exponentiation; we distinguish between integer and real exponents to allow x^2 to be compiled    (* exponentiation; we distinguish between integer and real exponents to allow x^2 to be compiled
170     * as x*x.     * as x*x.
171     *)     *)

Legend:
Removed from v.2081  
changed lines
  Added in v.2120

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