Fixes collections attempting to compile with their content's base type.

2 files changed, 10 insertions, 8 deletions

diff --git a/data/unit-testing/access.fate b/data/unit-testing/access.fate
index 6079d7d..c7df9e6 100644
--- a/data/unit-testing/access.fate
+++ b/data/unit-testing/access.fate
@@ -9,13 +9,13 @@
 (global int i)
 
 (for (set! i 0) (=< i 10) (set! i (+ i 1))
-   (assert! (= (access i li) (var i))
+   (assert! (= (list:access i li) (var i))
       [FAILED] ACCESS assert failed on (var i) for li.
    )
-   (assert! (= (access i li_ptr) (var i))
+   (assert! (= (list:access i (at 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! (= (list:access i (list:range 0 10 1)) (var i))
       [FAILED] ACCESS assert failed on (var i) with for range.
    )
 )
diff --git a/data/unit-testing/ptr_and_at.fate b/data/unit-testing/ptr_and_at.fate
index 9b12862..b98850d 100644
--- a/data/unit-testing/ptr_and_at.fate
+++ b/data/unit-testing/ptr_and_at.fate
@@ -27,6 +27,8 @@
    ((ptr (list (ptr int))) int_ptr_list_ptr)
 )
 
+(global test_struct0 test_struct0)
+
 (global (list test_struct0) test_struct0_list)
 
 (declare_structure test_struct1
@@ -80,11 +82,11 @@
    (int_ptr_list_ptr (ptr ts0.int_ptr_list))
 )
 
-(add! (ptr i) ts0.int_ptr_list)
-(add! (ptr j) ts0.int_ptr_list)
-(add! (at int_ptr_ptr) ts0.int_ptr_list)
-(add! (var ts0.int_ptr0) ts0.int_ptr_list)
-(add! (var ts0.int_ptr1) ts0.int_ptr_list)
+(list:add! (ptr i) ts0.int_ptr_list)
+(list:add! (ptr j) ts0.int_ptr_list)
+(list:add! (at int_ptr_ptr) ts0.int_ptr_list)
+(list:add! (var ts0.int_ptr0) ts0.int_ptr_list)
+(list:add! (var ts0.int_ptr1) ts0.int_ptr_list)
 
 (assert! (= (var ts0.int_ptr_list.0) (var i_ptr) (ptr i)) [FAILED] (var test_name) equality 3.)
 (assert! (= (var ts0.int_ptr_list.1) (var j_ptr) (ptr j)) [FAILED] (var test_name) equality 4.)