Updated syntax with working examples

2 files changed, 9 insertions, 9 deletions

diff --git a/src/test/test1.sail b/src/test/test1.sail
index e7828483..dfb8ac8f 100644
--- a/src/test/test1.sail
+++ b/src/test/test1.sail
@@ -1,14 +1,14 @@
-(*default Nat i
-default Order o
+default Nat 'i
+default Order 'o
 default bool b
-default forall 'a. (list 'a) 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
-typedef int_list [name = "il"] = list nat
+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 maybe = const union forall 'a. { Nne; 'a Sme; }
 typedef colors = enumerate { red; green; blue }
-typedef creg = register bits [5:i] { 5 : h ; 6..7 : j}
+typedef creg = register bits [5:'i] { 5 : h ; 6..7 : j}
 let bool e = true
 
-function unit main _ = ()*)
+function unit main _ = ()
\ No newline at end of file
diff --git a/src/test/test3.sail b/src/test/test3.sail
index 4a216467..30513bc9 100644
--- a/src/test/test3.sail
+++ b/src/test/test3.sail
@@ -8,9 +8,9 @@ val ( ( nat * nat ) -> nat effect { wmem , rmem } ) MEM_SIZE
 
 (* extern functions *)
 val extern ( ( nat * nat ) -> nat pure ) add = "add"
-val extern ( ( nat * nat ) -> nat pure ) (: + ) = "add_infix"   (* infix plus *)
+val extern ( ( nat * nat ) -> nat pure ) (deinfix + ) = "add_infix"   (* infix plus *)
 
-function nat (: * ) ( < nat > x, < nat > y ) = 42
+function nat (deinfix * ) ( (nat) x, (nat) y ) = 42
 
 function nat main _ = {
   (* left-hand side function call = memory write *)