From 034153205de05ef2a4facf7aded9912ce8dfb6b5 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 1 May 2021 20:58:23 +0200 Subject: Suffixes imperative stuff with '!', adds ({set,list} ... ) shorthands. --- data/unit-testing/allocate_and_free.fate | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'data/unit-testing/allocate_and_free.fate') diff --git a/data/unit-testing/allocate_and_free.fate b/data/unit-testing/allocate_and_free.fate index 56c7d6b..cf05414 100644 --- a/data/unit-testing/allocate_and_free.fate +++ b/data/unit-testing/allocate_and_free.fate @@ -1,15 +1,16 @@ (fate_version 1) (local (ptr int) p0) -(allocate p0) -(set (at p0) 72) -(assert (= (at p0) 72) +(allocate! p0) +(set! (at p0) 72) + +(assert! (= (at p0) 72) [FAILED] Test 0 ) -(free (at p0)) +(free! (at p0)) [COMPLETED] -(end) +(end!) -- cgit v1.2.3-70-g09d2