Mercurial > urweb
comparison tests/datatypeMod.lac @ 158:b4b70de488e9
More datatype module stuff
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 24 Jul 2008 16:36:41 -0400 |
parents | adc4e42e3adc |
children | 1e382d10e832 |
comparison
equal
deleted
inserted
replaced
157:adc4e42e3adc | 158:b4b70de488e9 |
---|---|
1 structure M : sig datatype t = A | B end = struct | 1 structure M : sig datatype t = A | B end = struct |
2 datatype t = A | B | 2 datatype t = A | B |
3 end | 3 end |
4 | |
5 val a = M.A | |
4 | 6 |
5 datatype u = datatype M.t | 7 datatype u = datatype M.t |
6 | 8 |
7 val a : M.t = A | 9 val a : M.t = A |
8 val a2 : u = a | 10 val a2 : u = a |
11 | |
12 structure M2 = M | |
13 structure M3 : sig datatype t = datatype M.t end = M2 | |
14 structure M4 : sig datatype t = datatype M.t end = M | |
15 | |
16 val b : M3.t = M4.B |