1 files changed, 10 insertions, 12 deletions

diff --git a/data/tests/loops.fate b/data/tests/loops.fate
index db7f212..47ad632 100644
--- a/data/tests/loops.fate
+++ b/data/tests/loops.fate
@@ -1,10 +1,8 @@
 (fate_version 1)
 
-(require include/data_types.fate)
-
-(declare_variable int i)
-(declare_variable int test_val)
-(declare_variable int test_val2)
+(global int i)
+(global int test_val)
+(global int test_val2)
 
 (set test_val 0)
 (set test_val2 0)
@@ -62,8 +60,8 @@
 (assert (= (var test_val2) 1) FAILED: do while loop E)
 (assert (= (var i) 1) FAILED: do while loop F)
 
-(declare_variable int_list int_list_a)
-(declare_variable int_list int_list_b)
+(global (list int) int_list_a)
+(global (list int) int_list_b)
 
 (for (set i 0) (< (var i) 10) (set i (+ (var i) 1))
    (add_element 1 int_list_a)
@@ -74,8 +72,8 @@
 (set test_val2 0)
 
 (foreach int_list_a a
-   (set test_val (+ (var test_val) (param a)))
-   (set test_val2 (+ (var test_val2) (param a)))
+   (set test_val (+ (var test_val) (var a)))
+   (set test_val2 (+ (var test_val2) (var a)))
 )
 (assert (= (var test_val) 10) FAILED: for each loop A)
 (assert (= (var test_val2) 10) FAILED: for each loop B)
@@ -125,9 +123,9 @@
 (set test_val 0)
 
 (foreach int_list_a a
-   (set test_val (+ (var test_val) (param a)))
+   (set test_val (+ (var test_val) (var a)))
    (break)
-   (set test_val2 (+ (var test_val2) (param a)))
+   (set test_val2 (+ (var test_val2) (var a)))
 )
 (assert (= (var test_val) 1) FAILED: break foreach loop A)
 (assert (= (var test_val2) 0) FAILED: break foreach loop B)
@@ -135,7 +133,7 @@
 (clear int_list_b)
 
 (foreach int_list_a a
-   (add_element (param a) int_list_b)
+   (add_element (var a) int_list_b)
    (for (set i 0) (< (var i) 1) (set i (+ (var i) 1))
       (add_element (var i) int_list_b)
    )