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/branches/blume-private-devel/src/system/smlnj/init/pervasive.sml
ViewVC logotype

Diff of /sml/branches/blume-private-devel/src/system/smlnj/init/pervasive.sml

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

revision 1452, Mon Feb 9 20:33:28 2004 UTC revision 1453, Mon Feb 9 20:33:28 2004 UTC
# Line 201  Line 201 
201  fun l1 @ l2 = foldr (op ::) l2 l1  fun l1 @ l2 = foldr (op ::) l2 l1
202  fun app f = let  fun app f = let
203      fun a2 [] = ()      fun a2 [] = ()
204        | a2 (h :: t) = (f h; a2 t)        | a2 (h :: t) = (f h : unit; a2 t)
205  in  in
206      a2      a2
207  end  end

Legend:
Removed from v.1452  
changed lines
  Added in v.1453

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