language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-29 23:04:49 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

Improve debug stuff a bit

Browse source
This commit is contained in:
Richard Feldman 2020-05-23 11:36:52 -04:00
parent 887ec9860a
commit 60e583fb78
4 changed files with 45 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -88,14 +88,14 @@ fn int_is_even(var_store: &VarStore) -> Def {
fn list_len(var_store: &VarStore) -> Def {
use crate::expr::Expr::*;
// Polymorphic wrapper around LowLevel::ListGet
// Polymorphic wrapper around LowLevel::ListLen
let arg = Symbol::LIST_LEN_ARG;
defn(
Symbol::LIST_LEN,
vec![Symbol::LIST_LEN_ARG],
vec![arg],
var_store,
RunLowLevel(LowLevel::ListLen {
arg_from_scope: Symbol::LIST_LEN_ARG,
}),
RunLowLevel(LowLevel::ListLen { arg }),
)
}
@ -119,11 +119,9 @@ fn list_get(var_store: &VarStore) -> Def {
Symbol::NUM_LT,
vec![
Var(Symbol::LIST_GET_ARG_INDEX),
call(
Symbol::LIST_LEN,
vec![Var(Symbol::LIST_GET_ARG_LIST)],
var_store,
),
RunLowLevel(LowLevel::ListLen {
arg: Symbol::LIST_GET_ARG_LIST,
}),
],
var_store,
),