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

SCM Repository

[diderot] Diff of /trunk/src/compiler/fields/partials.sml
ViewVC logotype

Diff of /trunk/src/compiler/fields/partials.sml

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

revision 435, Tue Oct 19 13:14:20 2010 UTC revision 1116, Thu May 5 04:49:02 2011 UTC
# Line 68  Line 68 
68              | f (a, 0::r) = f(a+1, r)              | f (a, 0::r) = f(a+1, r)
69              | f (a, 1::r) = "d" :: axisToString(axis a) :: f(a+1, r)              | f (a, 1::r) = "d" :: axisToString(axis a) :: f(a+1, r)
70              | f (a, i::r) = "d" :: axisToString(axis a) :: Int.toString i :: f(a+1, r)              | f (a, i::r) = "d" :: axisToString(axis a) :: Int.toString i :: f(a+1, r)
71              val n = List.foldl (op +) 0 l
72            in            in
73              case f (0, l)              case f (0, l)
74               of [] => "ID"               of [] => "ID"
75                | l => String.concat("d/" :: l)                | l => String.concat("d" :: Int.toString n :: "/" :: l)
76              (* end case *)              (* end case *)
77            end            end
78    

Legend:
Removed from v.435  
changed lines
  Added in v.1116

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