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

some foundations for zero-sized values in closures

Browse source
This commit is contained in:
Folkert 2020-11-08 01:37:24 +01:00
parent 114e08f05f
commit 2a872f180a
4 changed files with 56 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -119,10 +119,12 @@ impl<'a> Proc<'a> {
let args_doc = self
.args
.iter()
.map(|(_, symbol)| alloc.text(format!("{}", symbol)));
.map(|(_, symbol)| symbol_to_doc(alloc, *symbol));
alloc
.text(format!("procedure {} (", self.name))
.text("procedure ")
.append(symbol_to_doc(alloc, self.name))
.append(" (")
.append(alloc.intersperse(args_doc, ", "))
.append("):")
.append(alloc.hardline())
@ -901,6 +903,7 @@ where
A: Clone,
{
alloc.text(format!("{}", symbol))
// alloc.text(format!("{:?}", symbol))
}
fn join_point_to_doc<'b, D, A>(alloc: &'b D, symbol: JoinPointId) -> DocBuilder<'b, D, A>
@ -1995,6 +1998,7 @@ pub fn with_hole<'a>(
recursive,
arguments,
loc_body: boxed_body,
captured_symbols,
..
} = def.loc_expr.value
{
@ -2006,6 +2010,11 @@ pub fn with_hole<'a>(
let is_self_recursive =
!matches!(recursive, roc_can::expr::Recursive::NotRecursive);
// this should be a top-level declaration, and hence have no captured symbols
// if we ever do hit this (and it's not a bug), we should make sure to put the
// captured symbols into a CapturedSymbols and give it to insert_named
debug_assert!(captured_symbols.is_empty());
procs.insert_named(
env,
layout_cache,
@ -2256,7 +2265,9 @@ pub fn with_hole<'a>(
"The `[]` type has no constructors, source var {:?}",
variant_var
),
Unit => Stmt::Let(assigned, Expr::Struct(&[]), Layout::Struct(&[]), hole),
Unit | UnitWithArguments => {
Stmt::Let(assigned, Expr::Struct(&[]), Layout::Struct(&[]), hole)
}
BoolUnion { ttrue, .. } => Stmt::Let(
assigned,
Expr::Literal(Literal::Bool(tag_name == ttrue)),
@ -4919,7 +4930,7 @@ pub fn from_can_pattern<'a>(
"there is no pattern of type `[]`, union var {:?}",
*whole_var
),
Unit => Pattern::EnumLiteral {
Unit | UnitWithArguments => Pattern::EnumLiteral {
tag_id: 0,
tag_name: tag_name.clone(),
union: Union {