fix list clauses with guards and add more tests

2023-08-16 16:31:44 -04:00
parent f4d0f231d7
commit 2456801b17
5 changed files with 463 additions and 22 deletions
--- a/crates/aiken-lang/src/gen_uplc/tree.rs
+++ b/crates/aiken-lang/src/gen_uplc/tree.rs
@@ -282,7 +282,7 @@ pub enum AirExpression {
    ListClause {
        subject_tipo: Arc<Type>,
        tail_name: String,
-        next_tail_name: Option<String>,
+        next_tail_name: Option<(String, String)>,
        complex_clause: bool,
        then: Box<AirTree>,
        otherwise: Box<AirTree>,
@@ -546,7 +546,7 @@ impl AirTree {
        subject_tipo: Arc<Type>,
        then: AirTree,
        otherwise: AirTree,
-        next_tail_name: Option<String>,
+        next_tail_name: Option<(String, String)>,
        complex_clause: bool,
    ) -> AirTree {
        AirTree::Expression(AirExpression::ListClause {