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/compiler/MiscUtil/print/ppobj.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/MiscUtil/print/ppobj.sml

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

revision 1334, Thu May 22 22:46:30 2003 UTC revision 1335, Tue May 27 21:54:23 2003 UTC
# Line 125  Line 125 
125    
126    (* test membership in an association list and gives back    (* test membership in an association list and gives back
127     * the second element *)     * the second element *)
128    fun mem a =    fun mem (a: unit ref) =
129        let fun m [] = NONE | m ((x,r)::l) = if a = x then SOME r else m l        let fun m [] = NONE | m ((x,r)::l) = if a = x then SOME r else m l
130         in m         in m
131        end        end

Legend:
Removed from v.1334  
changed lines
  Added in v.1335

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