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

start work on tail recursion

Browse source
This commit is contained in:
Folkert 2020-08-12 12:57:20 +02:00
parent 8444c1fe6d
commit bdd8751107
5 changed files with 119 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

7
compiler/build/src/program.rs
View file

@ -117,7 +117,10 @@ pub fn gen(
Declare(def) | Builtin(def) => match def.loc_pattern.value {
Identifier(symbol) => {
match def.loc_expr.value {
Closure(annotation, _, _, loc_args, boxed_body) => {
Closure(annotation, _, recursivity, loc_args, boxed_body) => {
let is_tail_recursive =
matches!(recursivity, roc_can::expr::Recursive::TailRecursive);
let (loc_body, ret_var) = *boxed_body;
// If this is an exposed symbol, we need to
@ -155,6 +158,7 @@ pub fn gen(
annotation,
loc_args,
loc_body,
is_tail_recursive,
ret_var,
);
}
@ -166,6 +170,7 @@ pub fn gen(
pattern_symbols: bumpalo::collections::Vec::new_in(
mono_env.arena,
),
is_tail_recursive: false,
body,
};