Fix scoped path for list with tail cases only plus wild card fallback

2024-11-18 12:21:40 -05:00
parent 18054eed1a
commit eec08fcbd9
3 changed files with 33 additions and 4 deletions
--- a/crates/aiken-lang/src/gen_uplc/decision_tree.rs
+++ b/crates/aiken-lang/src/gen_uplc/decision_tree.rs
@@ -428,10 +428,17 @@ impl<'a> DecisionTree<'a> {
                        .enumerate()
                        .rev()
                        .for_each(|(index, (_, detree))| {
-                            prev.push(Marker::PopPush(
-                                ScopePath::Case(index + cases.len()),
-                                detree,
-                            ));
+                            if index + cases.len() == 0 {
+                                prev.push(Marker::Push(
+                                    ScopePath::Case(index + cases.len()),
+                                    detree,
+                                ));
+                            } else {
+                                prev.push(Marker::PopPush(
+                                    ScopePath::Case(index + cases.len()),
+                                    detree,
+                                ));
+                            }
                        });

                    cases