fix list sorting

This commit is contained in:
Folkert 2022-07-24 13:24:28 +02:00
parent c274ada741
commit f7d1ba6952
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C

View file

@ -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