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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/simplify/simplify.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/simplify/simplify.sml

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

revision 2511, Mon Nov 18 19:20:54 2013 UTC revision 2512, Thu Nov 21 16:22:48 2013 UTC
# Line 126  Line 126 
126                      (* load the nrrd proxy here *)                      (* load the nrrd proxy here *)
127                        val info = NrrdInfo.getInfo nrrd                        val info = NrrdInfo.getInfo nrrd
128                        val (ty, init) = (case SimpleVar.typeOf x'                        val (ty, init) = (case SimpleVar.typeOf x'
129                               of ty as SimpleTypes.T_Image{dim, shape} =>                               of ty as SimpleTypes.T_DynSequence _ => (ty, InP.DynSeq nrrd)
130                                    (ty, inputImage(nrrd, dim, shape))                                | ty as SimpleTypes.T_Image{dim, shape} => (ty, inputImage(nrrd, dim, shape))
131                                | _ => raise Fail "impossible"                                | _ => raise Fail "impossible"
132                              (* end case *))                              (* end case *))
133                        val inp = InP.INP{                        val inp = InP.INP{

Legend:
Removed from v.2511  
changed lines
  Added in v.2512

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