racket/collects/honu/examples/old/field-exp-sub.honu
Stevie Strickland 7dbb99d3c6 merged 292:296 from branches/sstrickl
svn: r297
2005-07-02 04:03:02 +00:00

25 lines
257 B
Plaintext

type t {
int x;
}
type t2 <: t {
int y;
}
type contains_t {
t x;
}
class c() : t2 impl t2 {
init int x;
init int y;
export t2 : x, y;
}
class cct() : contains_t impl contains_t {
init t2 x;
export contains_t : x;
}