Fix minor issues found when testing

2024-08-06 02:08:34 -04:00
parent 4249ef2509
commit 33370b8637
3 changed files with 64 additions and 30 deletions
--- a/crates/aiken-lang/src/gen_uplc/builder.rs
+++ b/crates/aiken-lang/src/gen_uplc/builder.rs
@@ -1212,7 +1212,8 @@ pub fn list_access_to_uplc(
        if name == "_" {
            then
        } else if tipo.is_pair() && is_list_accessor {
-            Term::head_list().apply(Term::var(tail_name.to_string()))
+            then.lambda(name)
+                .apply(Term::head_list().apply(Term::var(tail_name.to_string())))
        } else if matches!(expect_level, ExpectLevel::Full) {
            // Expect level is full so we have an unknown piece of data to cast
            if otherwise_delayed == Term::Error.delay() {