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

destruct record at high level

Browse source
This commit is contained in:
satotake 2021-11-13 05:12:18 +00:00 • committed by GitHub
parent 98d2c57edf
commit 2e073d57ea
5 changed files with 42 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

25
compiler/can/src/builtins.rs
View file

@ -2070,9 +2070,32 @@ fn list_sublist(symbol: Symbol, var_store: &mut VarStore) -> Def {
let sym_list = Symbol::ARG_1;
let sym_rec = Symbol::ARG_2;
let start_var = var_store.fresh();
let len_var = var_store.fresh();
let get_start = Access {
record_var: rec_var,
ext_var: var_store.fresh(),
field_var: var_store.fresh(),
loc_expr: Box::new(no_region(Var(sym_rec))),
field: "start".into(),
};
let get_len = Access {
record_var: rec_var,
ext_var: var_store.fresh(),
field_var: var_store.fresh(),
loc_expr: Box::new(no_region(Var(sym_rec))),
field: "len".into(),
};
let body = RunLowLevel {
op: LowLevel::ListSublist,
args: vec![(list_var, Var(sym_list)), (rec_var, Var(sym_rec))],
args: vec![
(list_var, Var(sym_list)),
(start_var, get_start),
(len_var, get_len),
],
ret_var: list_var,
};