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/bug174/bug174.sml
ViewVC logotype

View of /tests/trunk/bugs/tests.post-110.63/bug174/bug174.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: 339 byte(s)
missing bug tests subdirectories
(* bug174.sml *)

signature ASig =
sig
  datatype POP = a | b
end;

signature BSig =
sig
  structure DT : ASig
  val f : DT.POP -> unit
end;

functor AFun () : ASig =
struct
  datatype POP = a | b
end;

functor BFun (structure DT : ASig) : BSig =
struct
  structure DT = DT
  open DT
  val f = fn _ => outputc std_out "Is Running\n"
end;


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