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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 548 - (view) (download)
Original Path: sml/trunk/tests/bugs/tests/bug1201.1.sml

1 : dbm 548 (* bug1201.1.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
21 :     where type A.t = X.A.t) =
22 :     struct
23 :     fun f(x: X.A.t, y: Y.A.t list) = x::y
24 :     end;
25 :    

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