language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-26 13:29:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Weaken recursive let bindings

Browse source
This commit is contained in:
Ayaz Hafiz 2023-01-12 10:21:57 -06:00 • committed by Folkert
parent e3a213c0dc
commit e36f90feec
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
crates/compiler/constrain/src/expr.rs
View file

@ -3826,13 +3826,14 @@ fn is_generalizable_expr(mut expr: &Expr) -> bool {
Num(..) | Int(..) | Float(..) => return true, Num(..) | Int(..) | Float(..) => return true,
Closure(_) => return true, Closure(_) => return true,
OpaqueRef { argument, .. } => expr = &argument.1.value, OpaqueRef { argument, .. } => expr = &argument.1.value,
Str(_) | List { .. } | SingleQuote(_, _, _, _) | When { .. } | If { .. } => { Str(_) | List { .. } | SingleQuote(_, _, _, _) | When { .. } | If { .. }
| LetRec(_, _, _)
=> {
return false return false
} }
// TODO(weakening) // TODO(weakening)
Var(_, _) Var(_, _)
| AbilityMember(_, _, _) | AbilityMember(_, _, _)
| LetRec(_, _, _)
| LetNonRec(_, _) | LetNonRec(_, _)
| Call(_, _, _) | Call(_, _, _)
| RunLowLevel { .. } | RunLowLevel { .. }