diff --git a/cv4/list_ops.c b/cv4/list_ops.c
index 3c524b3..da7fad1 100644
--- a/cv4/list_ops.c
+++ b/cv4/list_ops.c
@@ -55,7 +55,7 @@ list_element_t foldl_list(list_t *list, list_element_t initial, list_element_t (
     list_element_t result = initial;
     
     for (size_t i = 0; i < list->length; i++) {
-        result = folder(accumulator, list->elements[i]);
+        result = folder(result, list->elements[i]);
     }
     
     return result;
@@ -65,7 +65,7 @@ list_element_t foldr_list(list_t *list, list_element_t initial, list_element_t (
     list_element_t result = initial;
     
     for (size_t i = list->length; i > 0; i--) {
-        result = folder(list->elements[i - 1], accumulator);
+        result = folder(list->elements[i - 1], result);
     }
     
     return result;