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

Annotation of /tests/trunk/bugs/tests.obsolete/bug1432.8.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (view) (download)

1 : dbm 548 (* bug1432.8.sml *)
2 :    
3 :     signature S1 =
4 :     sig
5 :     datatype d = D
6 :     end;
7 :    
8 :     signature S2 =
9 :     sig
10 :     datatype d = D
11 :     structure A :
12 :     sig
13 :     datatype d = D
14 :     type s
15 :     sharing type s = d
16 :     end
17 :     where type d = d (* definition outside of sharing *)
18 :     end;
19 :    
20 :     functor F (X : S2) =
21 :     struct
22 :     structure MyS1 : S1 = X.A (* match against S1 necessary *)
23 :     end;

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