Suffixes imperative stuff with '!', adds ({set,list} ... ) shorthands.

1 files changed, 7 insertions, 7 deletions

diff --git a/data/unit-testing/access.fate b/data/unit-testing/access.fate
index fe92293..e665b69 100644
--- a/data/unit-testing/access.fate
+++ b/data/unit-testing/access.fate
@@ -3,23 +3,23 @@
 (global (list int) li)
 (global (ptr (list int)) li_ptr)
 
-(set li (range 0 10 1))
-(set li_ptr (ptr li))
+(set! li (range 0 10 1))
+(set! li_ptr (ptr li))
 
 (global int i)
 
-(for (set i 0) (=< i 10) (set i (+ i 1))
-   (assert (= (access i li) (var i))
+(for (set! i 0) (=< i 10) (set! i (+ i 1))
+   (assert! (= (access i li) (var i))
       [FAILED] ACCESS assert failed on (var i) for li.
    )
-   (assert (= (access i li_ptr) (var i))
+   (assert! (= (access i li_ptr) (var i))
       [FAILED] ACCESS assert failed on (var i) with for li_ptr.
    )
-   (assert (= (access i (range 0 10 1)) (var i))
+   (assert! (= (access i (range 0 10 1)) (var i))
       [FAILED] ACCESS assert failed on (var i) with for range.
    )
 )
 
 [COMPLETED] ACCESS
 
-(end)
+(end!)