From f7d1ba6952e8767fb8738b9815ea34af6bd45f90 Mon Sep 17 00:00:00 2001 From: Folkert Date: Sun, 24 Jul 2022 13:24:28 +0200 Subject: [PATCH] fix list sorting --- crates/compiler/gen_llvm/src/llvm/build.rs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/crates/compiler/gen_llvm/src/llvm/build.rs b/crates/compiler/gen_llvm/src/llvm/build.rs index 636dd610ea..9a1827e293 100644 --- a/crates/compiler/gen_llvm/src/llvm/build.rs +++ b/crates/compiler/gen_llvm/src/llvm/build.rs @@ -6026,10 +6026,15 @@ fn run_low_level<'a, 'ctx, 'env>( // List.isUnique : List a -> Bool debug_assert_eq!(args.len(), 1); - let list = load_symbol(scope, &args[0]); - let list = list_to_c_abi(env, list).into(); + let list = load_symbol(scope, &args[0]).into_struct_value(); - call_bitcode_fn(env, &[list], bitcode::LIST_IS_UNIQUE) + call_list_bitcode_fn( + env, + &[list], + &[], + BitcodeReturns::Basic, + bitcode::LIST_IS_UNIQUE, + ) } NumToStr => { // Num.toStr : Num a -> Str