Mercurial > urweb
changeset 36:ca58de3cb72b
Nested selfification test
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 17 Jun 2008 17:11:32 -0400 |
parents | 1dfbd9e3e790 |
children | 367f058aba23 |
files | tests/modnested.lac |
diffstat | 1 files changed, 23 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/modnested.lac Tue Jun 17 17:11:32 2008 -0400 @@ -0,0 +1,23 @@ +signature S = sig + type t + val x : t + + structure Q : sig + type q + val y : q + end +end + +structure S = struct + type t = int + val x = 0 + + structure Q = struct + type q = float + val y = 0.0 + end +end + +structure S1 = S +structure S2 : S = S +structure S3 = S2