racket/collects/honu/examples/field-exp-sub.honu
2005-05-27 18:56:37 +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;
}