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

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

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : dbm 548 (* bug13.sml *)
2 :    
3 :     signature FOO =
4 :     sig
5 :     type T1 and T2
6 :     val x1: T1 and x2: T2
7 :     sharing type T1 = T2
8 :     end;
9 :    
10 :     structure Foo:> FOO =
11 :     struct
12 :     datatype T1 = CON
13 :     type T2 = T1
14 :     val x1 = CON and x2 = CON
15 :     end;
16 :    
17 :     [Foo.x1, Foo.x2];

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