language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-27 05:49:08 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

More lifting

Browse source
This commit is contained in:
Ayaz Hafiz 2022-05-09 16:36:13 -04:00
parent bc5dc17ce9
commit a59739bf20
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
1 changed files with 22 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

35
compiler/mono/src/ir.rs
View file

@ -2082,15 +2082,26 @@ fn from_can_let<'a>(
def: Box<roc_can::def::Def>,
cont: Box<Loc<roc_can::expr::Expr>>,
variable: Variable,
hole: Option<Stmt<'a>>,
opt_assigned_and_hole: Option<(Symbol, &'a Stmt<'a>)>,
) -> Stmt<'a> {
use roc_can::expr::Expr::*;
macro_rules! lower_rest {
($variable:expr, $expr:expr) => {
match hole {
None => from_can(env, $variable, $expr, procs, layout_cache),
Some(_) => unreachable!(),
lower_rest!(env, procs, layout_cache, $variable, $expr)
};
($env:expr, $procs:expr, $layout_cache:expr, $variable:expr, $expr:expr) => {
match opt_assigned_and_hole {
None => from_can($env, $variable, $expr, $procs, $layout_cache),
Some((assigned, hole)) => with_hole(
$env,
$expr,
$variable,
$procs,
$layout_cache,
assigned,
hole,
),
}
};
}
@ -2129,7 +2140,7 @@ fn from_can_let<'a>(
|env: &mut Env<'a, '_>,
procs: &mut Procs<'a>,
layout_cache: &mut LayoutCache<'a>| {
from_can(env, def.expr_var, cont.value, procs, layout_cache)
lower_rest!(env, procs, layout_cache, variable, cont.value)
};
return handle_variable_aliasing(
@ -3803,17 +3814,15 @@ pub fn with_hole<'a>(
}
LetNonRec(def, cont) => {
if let roc_can::pattern::Pattern::Identifier(symbol) = def.loc_pattern.value {
if let Closure(closure_data) = def.loc_expr.value {
register_noncapturing_closure(env, procs, symbol, closure_data);
return with_hole(
if matches!(def.loc_expr.value, Closure(_)) {
return from_can_let(
env,
cont.value,
variable,
procs,
layout_cache,
assigned,
hole,
def,
cont,
variable,
Some((assigned, hole)),
);
}