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 /sml/trunk/tests/modules/tests.obsolete/36.sml
ViewVC logotype

View of /sml/trunk/tests/modules/tests.obsolete/36.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 548 - (download) (annotate)
Tue Feb 29 16:38:11 2000 UTC (20 years, 5 months ago) by dbm
File size: 239 byte(s)
Initial revision
(* 36.sml *)
(* keywords: functor, equality, sharing *)

signature T6 =
sig
  structure A : sig type t end
  structure B : sig type s sharing type s = A.t end
end;

functor F(X:T6) =
struct
  val f = fn (x:X.A.t->int,y:X.B.s) => x(y)
end;

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