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

SCM Repository

[diderot] Diff of /trunk/src/compiler/fields/field-def.sml
ViewVC logotype

Diff of /trunk/src/compiler/fields/field-def.sml

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

revision 285, Fri Aug 13 20:52:11 2010 UTC revision 286, Fri Aug 13 21:39:34 2010 UTC
# Line 14  Line 14 
14        | SUM of field_def * field_def        | SUM of field_def * field_def
15  (* scaling too? *)  (* scaling too? *)
16    
17      (* base convolution case *)
18        fun convolve (v, h) = CONV(0, v, h)
19    
20    (* smart constructor for DIFF *)    (* smart constructor for DIFF *)
21      fun diff (CONV(k, img, h)) = CONV(k+1, img, h)      fun diff (CONV(k, img, h)) = CONV(k+1, img, h)
22        | diff (NEG fld) = NEG(diff fld)        | diff (NEG fld) = NEG(diff fld)

Legend:
Removed from v.285  
changed lines
  Added in v.286

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