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

Annotation of /tests/trunk/bugs/tests.obsolete/bug1201.2.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (view) (download)

1 : dbm 548 (* bug1201.2.sml *)
2 :    
3 :     signature SA =
4 :     sig
5 :     type t
6 :     end;
7 :    
8 :     signature SX =
9 :     sig
10 :     structure A : SA
11 :     end;
12 :    
13 :     signature SY =
14 :     sig
15 :     structure A : SA
16 :     end;
17 :    
18 :     functor F
19 :     (structure X : SX)
20 :     (structure Y : SY where A = X.A) =
21 :     struct
22 :     fun f(x: X.A.t, y: Y.A.t list) = x::y
23 :     end;
24 :    
25 :     functor G(structure A : SA) :
26 :     sig
27 :     functor G1(structure Y: SY where A = A) : sig end
28 :     end =
29 :     struct
30 :     functor G1 = F(structure X = struct structure A = A end)
31 :     end;

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