waalge/aiken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix test for expect_head_cast_data_with_tail

Browse Source
This commit is contained in:
microproofs
2024-08-01 13:10:13 -04:00
committed by Kasey
parent 8b30f064a2
commit d23a5b2f11
2 changed files with 53 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
crates/aiken-lang/src/gen_uplc.rs
View File

@@ -1798,35 +1798,45 @@ impl<'a> CodeGenerator<'a> {
AirTree::list_empty(
AirTree::local_var("__list", tipo.clone()),
then,
AirTree::let_assignment(
&item_name,
AirTree::builtin(
DefaultFunction::HeadList,
data(),
vec![AirTree::local_var("__list", tipo.clone())],
),
AirTree::soft_cast_assignment(
AirTree::anon_func(
vec![],
AirTree::let_assignment(
&item_name,
inner_list_type.clone(),
AirTree::local_var(&item_name, data()),
self.expect_type_assign(
inner_list_type,
AirTree::local_var(&item_name, inner_list_type.clone()),
defined_data_types,
location,
AirTree::call(
AirTree::local_var("__curried_expect_on_list", void()),
void(),
vec![AirTree::builtin(
DefaultFunction::TailList,
list(data()),
vec![AirTree::local_var("__list", tipo.clone())],
)],
),
otherwise.clone(),
AirTree::builtin(
DefaultFunction::HeadList,
data(),
vec![AirTree::local_var("__list", tipo.clone())],
),
AirTree::soft_cast_assignment(
&item_name,
inner_list_type.clone(),
AirTree::local_var(&item_name, data()),
self.expect_type_assign(
inner_list_type,
AirTree::local_var(&item_name, inner_list_type.clone()),
defined_data_types,
location,
AirTree::call(
AirTree::local_var(
"__curried_expect_on_list",
void(),
),
void(),
vec![AirTree::builtin(
DefaultFunction::TailList,
list(data()),
vec![AirTree::local_var(
"__list",
tipo.clone(),
)],
)],
),
otherwise.clone(),
),
otherwise,
),
otherwise,
),
true,
),
),
false,