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

1 files changed, 13 insertions, 13 deletions

diff --git a/data/unit-testing/cons_car_cdr.fate b/data/unit-testing/cons_car_cdr.fate
index 7187f6a..a555cc0 100644
--- a/data/unit-testing/cons_car_cdr.fate
+++ b/data/unit-testing/cons_car_cdr.fate
@@ -2,33 +2,33 @@
 
 (global string test_name)
 
-(set test_name ( CONS CAR CDR ))
+(set! test_name ( CONS CAR CDR ))
 
-(assert (= (car (cons 1 (cons 2 (cons 3 (cons 4 5))))) 1)
+(assert! (= (car (cons 1 (cons 2 (cons 3 (cons 4 5))))) 1)
    [FAILED] (var test_name) test 1: (car (cons 1 (cons 2 (cons 3 (cons 4 5))))).
 )
 
-(assert (= (car (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))) 2)
+(assert! (= (car (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))) 2)
    [FAILED] (var test_name) test 2:
    (car (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))).
 )
 
-(assert (= (car (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))) 3)
+(assert! (= (car (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))) 3)
    [FAILED] (var test_name) test 3:
    (car (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))).
 )
 
-(assert (= (car (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) 4)
+(assert! (= (car (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) 4)
    [FAILED] (var test_name) test 4:
    (car (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))).
 )
 
-(assert (= (cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) 5)
+(assert! (= (cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) 5)
    [FAILED] (var test_name) test 5:
    (cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))).
 )
 
-(assert (= (car (cons test 0)) test)
+(assert! (= (car (cons test 0)) test)
    [FAILED] (var test_name) test string:
    (car (cons test 0))
 )
@@ -36,16 +36,16 @@
 (global (cons float string) cfs)
 (global (cons float string) cfs2)
 
-(set cfs (cons 3.14 pi))
+(set! cfs (cons 3.14 pi))
 
-(assert (= (car cfs) 3.14) [FAILED] (var test_name) test 3.14: (car cfs).)
-(assert (= (cdr cfs) pi) [FAILED] (var test_name) test pi: (cdr cfs).)
+(assert! (= (car cfs) 3.14) [FAILED] (var test_name) test 3.14: (car cfs).)
+(assert! (= (cdr cfs) pi) [FAILED] (var test_name) test pi: (cdr cfs).)
 
 
-(set cfs2 (cons (car cfs) (cdr cfs)))
+(set! cfs2 (cons (car cfs) (cdr cfs)))
 
-(assert (= (var cfs2) (var cfs)) [FAILED] (var test_name) equality.)
+(assert! (= (var cfs2) (var cfs)) [FAILED] (var test_name) equality.)
 
 [COMPLETED] (var test_name)
 
-(end)
+(end!)