annotate record.urs @ 27:ca1c07d49b5e
Type-directed case matching for variants.
| author |
Edward Z. Yang <ezyang@mit.edu> |
| date |
Thu, 26 Jul 2012 16:39:02 -0400 |
| parents |
a6730c3cfea7 |
| children |
f55f66c6fdee |
| rev |
line source |
|
adam@11
|
1 val numFields : r ::: {Type} -> folder r -> $r -> int
|
|
adam@11
|
2
|
|
adam@10
|
3 val mem : a ::: Type -> ns ::: {Unit} -> eq a -> folder ns -> a -> $(mapU a ns) -> bool
|
|
adam@10
|
4 (* Is a value found in a record? *)
|
|
adam@12
|
5
|
|
adam@12
|
6 val equal : ts ::: {Type} -> $(map eq ts) -> folder ts -> $ts -> $ts -> bool
|
|
adam@12
|
7 (* Are two records equal? *)
|
