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

First vau-involved partial evals working!

Browse Source
This commit is contained in:
Nathan Braswell
2021-08-15 01:27:53 -04:00
parent b3c02c82b3
commit 05092cba76
4 changed files with 62 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
k_prime.krak
View File

@@ -890,7 +890,7 @@ fun main(argc: int, argv: **char): int {
// cond uses TCO
env->set(str("cond"), make_builtin_combiner(str("cond"), 0, true, fun(params: vec<KPValue>, dynamic_env: *KPEnv): pair<*KPEnv, KPResult> {
if (params.size % 2) != 0 {
return make_pair(null<KPEnv>(), KPResult::Err(kpString(str("Need even number of params to cond"))))
return make_pair(null<KPEnv>(), KPResult::Err(kpString(str("Need even number of params to cond, have: ") + params.size + " last is " + pr_str(params[params.size-1], true))))
}
for (var i = 0; i < params.size; i+=2;) {
var ip = EVAL(dynamic_env, params[i])