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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (view) (download)

1 : dbm 548 (* bug1234.2.sml *)
2 :    
3 :     functor F(type t val x : t) =
4 :     struct
5 :     structure U =
6 :     struct
7 :     datatype u = K of t
8 :     type u = u list
9 :     val y = [K x]
10 :     end
11 :     val z = hd U.y
12 :     end;
13 :    
14 :     structure A = F(type t = int val x = 3);
15 :    

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