miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

implement set!

Browse Source
This commit is contained in:
Nathan Braswell
2020-06-30 21:59:11 -04:00
parent a5f1355b63
commit 38bf5edc35
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
k_prime.krak
View File

@@ -746,6 +746,21 @@ fun main(argc: int, argv: **char): int {
return KPResult::Err(kpString(str("wrong number of params to eval"))) return KPResult::Err(kpString(str("wrong number of params to eval")))
})); }));
env->set(str("set!"), make_builtin_combiner(str("set!"), fun(params: vec<KPValue>, dynamic_env: *KPEnv): KPResult {
if params.size != 2 {
return KPResult::Err(kpString(str("not 2 params to set!")))
}
if !params[0].is_symbol() {
return KPResult::Err(kpString(str("first parameter to set! is not a symbol")))
}
var data = EVAL(dynamic_env, params[1])
if is_err(data) {
return data
}
dynamic_env->set(params[0].get_symbol_text(), get_value(data))
return KPResult::Ok(kpNil())
}));
env->set(str("+"), make_builtin_combiner(str("+"), fun(params: vec<KPValue>, dynamic_env: *KPEnv): KPResult { env->set(str("+"), make_builtin_combiner(str("+"), fun(params: vec<KPValue>, dynamic_env: *KPEnv): KPResult {
var to_ret = 0 var to_ret = 0
for (var i = 0; i < params.size; i++;) { for (var i = 0; i < params.size; i++;) {