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/cm/semant/primitive.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/semant/primitive.sml

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

revision 352, Wed Jun 23 09:27:27 1999 UTC revision 353, Thu Jun 24 09:43:28 1999 UTC
# Line 109  Line 109 
109               i + 1)               i + 1)
110          val (sm, sl, _) = foldr one (StringMap.empty, [], 0) l          val (sm, sl, _) = foldr one (StringMap.empty, [], 0) l
111      in      in
112          (sm, Vector.fromList sl)          (sm, Vector.fromList (rev sl))
113      end      end
114  end  end

Legend:
Removed from v.352  
changed lines
  Added in v.353

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