diff --git a/compiler/gen_llvm/src/llvm/build_list.rs b/compiler/gen_llvm/src/llvm/build_list.rs index 997e322411..c6d39c33d5 100644 --- a/compiler/gen_llvm/src/llvm/build_list.rs +++ b/compiler/gen_llvm/src/llvm/build_list.rs @@ -312,7 +312,7 @@ pub fn list_replace_unsafe<'a, 'ctx, 'env>( UpdateMode::InPlace => call_bitcode_fn( env, &[ - list.into(), + pass_list_cc(env, list), index.into(), pass_element_as_opaque(env, element, *element_layout), layout_width(env, element_layout), @@ -323,7 +323,7 @@ pub fn list_replace_unsafe<'a, 'ctx, 'env>( UpdateMode::Immutable => call_bitcode_fn( env, &[ - list.into(), + pass_list_cc(env, list), env.alignment_intvalue(element_layout), index.into(), pass_element_as_opaque(env, element, *element_layout), diff --git a/compiler/test_gen/src/gen_list.rs b/compiler/test_gen/src/gen_list.rs index 296f083e59..18ce3051b5 100644 --- a/compiler/test_gen/src/gen_list.rs +++ b/compiler/test_gen/src/gen_list.rs @@ -1710,7 +1710,7 @@ fn replace_unique_int_list() { r#" result = List.replace [ 12, 9, 7, 1, 5 ] 2 33 when result is - Ok {list, value} -> list + Ok {list} -> list Err _ -> [] "# ), @@ -1727,7 +1727,7 @@ fn replace_unique_int_list_get_old_value() { r#" result = List.replace [ 12, 9, 7, 1, 5 ] 2 33 when result is - Ok {list, value} -> value + Ok {value} -> value Err _ -> -1 "# ),