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

SCM Repository

[smlnj] Annotation of /tests/trunk/bugs/tests.obsolete/bug1271.sml
ViewVC logotype

Annotation of /tests/trunk/bugs/tests.obsolete/bug1271.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (view) (download)

1 : dbm 548 (* bug1271.sml *)
2 :    
3 :     signature SIG1 =
4 :     sig
5 :     type t
6 :     val x: t
7 :     end;
8 :    
9 :     signature SIG2 =
10 :     sig
11 :     functor Foo(X:SIG1) : sig val w: X.t end
12 :     end;
13 :    
14 :     structure B : SIG2 = (* sig constraint necessary *)
15 :     struct
16 :     functor Foo(X:SIG1) =
17 :     struct
18 :     val w = X.x
19 :     end
20 :     end;
21 :    
22 :     open B;
23 :    
24 :     (* or some other reference to B.Foo, such as:
25 :     structure XX = B.Foo(struct type t = int val x = 3 end);
26 :    
27 :     functor F = B.Foo;
28 :     *)

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