diff options
Diffstat (limited to 'src/test/test1.sail')
| -rw-r--r-- | src/test/test1.sail | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/test/test1.sail b/src/test/test1.sail index 98dd92c2..e7828483 100644 --- a/src/test/test1.sail +++ b/src/test/test1.sail @@ -1,14 +1,14 @@ -default Nat i +(*default Nat i default Order o default bool b -default forall a. (list a) b -val forall a, b . ((a * b) -> b pure) snd -val forall Type i, b. ((i * b) -> i pure) fst +default forall 'a. (list 'a) b +val forall 'a, 'b . (('a * 'b) -> 'b pure) snd +val forall Type 'i, 'b. (('i * 'b) -> 'i pure) fst typedef int_list [name = "il"] = list nat -typedef reco = const struct forall i, a, b. { (a[i]) v; b w; } -typedef maybe = const union forall a. { unit None; a Some; } +typedef reco = const struct forall 'i, 'a, 'b. { ('a['i]) v; 'b w; } +typedef maybe = const union forall 'a. { unit None; a Some; } typedef colors = enumerate { red; green; blue } typedef creg = register bits [5:i] { 5 : h ; 6..7 : j} let bool e = true -function unit main _ = () +function unit main _ = ()*) |