2010-08-12 18:21:08 -05:00
|
|
|
// -*- rust -*-
|
|
|
|
|
2010-09-09 17:59:29 -05:00
|
|
|
tag clam[T] {
|
|
|
|
a(T, int);
|
|
|
|
b();
|
|
|
|
}
|
2010-08-12 18:21:08 -05:00
|
|
|
|
|
|
|
fn uhoh[T](vec[clam[T]] v) {
|
|
|
|
alt (v.(1)) {
|
|
|
|
case (a[T](t, u)) { log "incorrect"; log u; fail; }
|
|
|
|
case (b[T]()) { log "correct"; }
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
fn main() {
|
|
|
|
let vec[clam[int]] v = vec(b[int](), b[int](), a[int](42, 17));
|
|
|
|
uhoh[int](v);
|
|
|
|
}
|