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/ml-nlffigen/spec.sml
ViewVC logotype

Diff of /sml/trunk/src/ml-nlffigen/spec.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 62  Line 62 
62          fun uniq sel = let          fun uniq sel = let
63              fun loop ([], a) = rev a              fun loop ([], a) = rev a
64                | loop (h :: t, a) =                | loop (h :: t, a) =
65                  loop (t, if List.exists (fn x => sel x = sel h) a then a                  loop (t, if List.exists
66                                    (fn x => (sel x : string) = sel h) a then a
67                           else h :: a)                           else h :: a)
68          in          in
69              loop              loop

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