sam/klisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added variable arguments to lambda functions. Last argument must be '&' to work.

Browse Source
This commit is contained in:
Sam Stevens
2014-05-27 20:50:39 +01:00
parent c1987617a0
commit a56e93808d
4 changed files with 27 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lval.c
View File

@@ -113,10 +113,21 @@ lval* lval_call(lenv* env, lval* function, lval* args) {
LASSERT(args, func->formals->cell_count <= args->cell_count, LERR_SYNTAX,
"lambda: insufficient arguments. Expected %ld got %ld", func->formals->cell_count, args->cell_count);
for(int i = 0; i < args->cell_count; i++) {
for(int i = 0; i < func->formals->cell_count; i++) {
lenv_put(func->env, func->formals->cell_list[i], args->cell_list[i]);
}
if (func->va != NULL) {
lval* vaArgs = lval_q_expr();
for(int i = func->formals->cell_count; i < args->cell_count; i ++ ) {
lval_add(vaArgs, lval_copy(args->cell_list[i]));
}
lenv_put(func->env, func->va, vaArgs);
lval_delete(vaArgs);
}
lval_delete(args);
func->env->parent = env;