Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/system/Basis/Implementation/list.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/list.sml

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

revision 1061, Tue Feb 12 22:21:13 2002 UTC revision 1062, Wed Feb 13 21:15:14 2002 UTC
# Line 122  Line 122 
122                           else (genfn n)::(loop(n+1))                           else (genfn n)::(loop(n+1))
123              in loop 0 end              in loop 0 end
124    
125        fun collate compare = let
126            fun loop ([], []) = EQUAL
127              | loop ([], _) = LESS
128              | loop (_, []) = GREATER
129              | loop (x :: xs, y :: ys) =
130                (case compare (x, y) of
131                     EQUAL => loop (xs, ys)
132                   | unequal => unequal)
133        in
134            loop
135        end
136    
137    end (* structure List *)    end (* structure List *)
138    

Legend:
Removed from v.1061  
changed lines
  Added in v.1062

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