HigherOrderCO/Bend
1
1
Fork 0
mirror of https://github.com/HigherOrderCO/Bend.git synced 2024-09-11 11:56:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

Allow unscoped variables on irrefutable rules

Browse Source
This commit is contained in:
imaqtkatt 2024-06-25 17:47:08 -03:00
parent a0aa467b73
commit 785de8c679
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/fun/transform/desugar_match_defs.rs
View File

@ -127,9 +127,19 @@ fn simplify_rule_match(
fn irrefutable_fst_row_rule(args: Vec<Name>, rule: Rule) -> Term {
let mut term = rule.body;
for (arg, pat) in args.into_iter().zip(rule.pats.into_iter()) {
let Pattern::Var(var) = pat else { unreachable!() };
if let Some(var) = var {
term = Term::Use { nam: Some(var), val: Box::new(Term::Var { nam: arg }), nxt: Box::new(term) };
match pat {
Pattern::Var(None) => {}
Pattern::Var(Some(var)) => {
term = Term::Use { nam: Some(var), val: Box::new(Term::Var { nam: arg }), nxt: Box::new(term) };
}
Pattern::Chn(var) => {
term = Term::Let {
pat: Box::new(Pattern::Chn(var)),
val: Box::new(Term::Var { nam: arg }),
nxt: Box::new(term),
};
}
_ => unreachable!(),
}
}
term