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

SCM Repository

[smlnj] View of /tests/trunk/bugs/tests.post-110.63/bug154/globals.sml
ViewVC logotype

View of /tests/trunk/bugs/tests.post-110.63/bug154/globals.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2463 - (download) (annotate)
Sat Apr 28 21:19:47 2007 UTC (11 years, 10 months ago) by gkuan
File size: 256 byte(s)
missing bug tests subdirectories
(* ------------------------  globals.sml: ---------------------- *)
signature GLOBALS =
sig
  val member: ''a -> ''a list -> bool
end

functor GlobalsFun() : GLOBALS =
struct
  fun member x [] = false
    | member x (y::l) = (x=y) orelse (member x l)
end


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