List.join builtin and unification

This commit is contained in:
Chad Stearns 2020-08-01 22:28:09 -04:00
parent 6dd6afbeac
commit a9ab550c10
6 changed files with 49 additions and 0 deletions

View file

@ -1533,6 +1533,11 @@ fn list_push<'a, 'ctx, 'env>(
)
}
/// List.join : List (List elem) -> List elem
fn list_join<'a, 'ctx, 'env>(env: &Env<'a, 'ctx, 'env>) -> BasicValueEnum<'ctx> {
empty_list(env)
}
/// List.prepend List elem, elem -> List elem
fn list_prepend<'a, 'ctx, 'env>(
env: &Env<'a, 'ctx, 'env>,
@ -1928,6 +1933,12 @@ fn run_low_level<'a, 'ctx, 'env>(
list_prepend(env, original_wrapper, elem, elem_layout)
}
ListJoin => {
// List.join : List (List elem) -> List elem
debug_assert_eq!(args.len(), 1);
list_join(env)
}
NumAbs | NumNeg | NumRound | NumSqrtUnchecked | NumSin | NumCos | NumToFloat => {
debug_assert_eq!(args.len(), 1);